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FOREWORD 


This report covers work performed in the Research and Engineering 
Department of the Convair division of General Dynamics at San Diego, 
California, under contract Number NAS8-21291, "Evaluation and 
Application of Data From Low-Gravity Orbital Experiment" for the 
George C. Marshall Space Flight Center (MSFC) of the National 
Aeronautics and Space Administration (NASA), during the period 
21 February 1968 to 30 June 1969. Contract control number was 
DCN1-8-52- 10101. Project manager for this phase of the study was 
Dr. R. D. Bradshaw. Other Convair personnel contributing to this 
phase of the study were Messrs. M. H. Blatt, L. R. Kaszas, K. M. 
Kneisel, A. R. Marchese, and A. B. Walburn. The study was under 
the technical direction of Mr. Leon J. Hastings, NASA/MSFC, 
S&E-ASTN-PF. 
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SUMMARY 


A fourteen month study was performed under NASA/MSFC contract NAS 8-21291 to analyze 
the S-IVB - AS-203 data and other available data to determine the applicability and 
adequacy of analytical models in several areas of thermodynamics and fluid mechanics. 

In particular, areas considered were repressurization, vehicle heating, pressure rise, 
liquid level phenomena during venting, boiling and propellant sloshing. Analytical 
models were developed and models were verified in each of these areas. Areas 
requiring further study are identified. 

The repressurization of the AS-203 vehicle for restart in orbit was analyzed with two 
existing pressurization programs. Heating programs were used to determine the 
contribution of ullage heating during this 360 second sequence. With heating rates 
determined, the reliability of the analytical pressurization models to analyze pressure 
changes during periods of helium addition and recirculation flow were ascertained. 

The program PRISM was used for a parametric study of the contributions of these 
variables. This program indicated options for ullage heating with interfacial heat 
transfer provide a good simulation of the pressure history. This model further 
represented the large potential effect of recirculation flow. The S-II pressurization 
model lacks recirculation flow capability but was used to analyze helium addition and 
ullage heating effects. This latter model over predicted the helium addition period 
pressure rise just as PRISM had done, but failed to match the ensuing pressure rise 
actually experienced. This suggests some effects of recirculation exist but are 
obviously not modeled in the S-n model. PRISM serves as an excellent pre-design 
tool for a parametric look at gross effects. 

The closed tank pressure rise for AS-203 was analyzed with existing analytical 
models, the S-n Pressurization Program and REPORTER. Prior to the pressure 
rise analysis, considerable effort was expended in obtaining and verifying the heating 
analyses for input to the thermodynamic models. Heating inputs were predicted 
theoretically from radiant absorbed heat fluxes and from conduction- radiation models 
of the fuel tank and its surrounding environment. The measurements of AS-203 skin 
temperatures provided a confirmation of the predicted heating rates. Although energy 
conducted through the forward dome is small, this heat transfer analysis within the 
forward skirt area proved difficult because of an indefinite absorptivity for the mylar 
insulation. The magnitude of heating rates for the various areas are presented and 
compared with previous investigations. The sensitivity of the pressure rise thermo- 
dynamic models to ullage heating inputs is discussed. Good agreement with test data 
was obtained for both heating and pressure rise models. 
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The depressurization phase of Ihe AS-203 experiment in a low-g environment was 
successful, however, it did not provide enlightenment on these areas of liquid 
behavior: liquid level rise, bubble evolution, boiling, or interfacial break-up. 

These phenomena increase the possibility of venting liquid if the venting rate is too 
rapid for a given initial liquid level. A gross bulk boiling analysis was performed 
to provide parametric data for liquid level rise. For this worst case analysis, a 
potential excessive liquid level rise was indicated. In a second analytical model, 
LIQLEV, boiling was assumed to occur only at the interface and in the boundary 
layer. A residence time was determined for bubbles based on their size. Thus, 
boundary layer growth occurred during a vent down; this resulted in an approximately 
ten percent liquid level rise for the AS-203 geometry. Parametric plots are given to 
show the effect of g- level and vent rate on the change in liquid level. 

The phenomena of boiling, liquid level rise, and bubble motion are rigorously treated 
in a Convair computer code, EVOLVE, developed under company funding. This model 
along with LIQLEV are both listed in the appendices of this report. The analytical 
model computes the forces exerted on a bubble in a low-g field due to buoyancy, drag, 
and surface tension. The effects of adjacent bubbles and void fraction in a confined 
media are calculated. Studies conducted indicated that wake effects are an important 
consideration in the agglomeration process. The AS-203 geometry was used to 
evaluate bubble characteristics and liquid level rise during a depressurization. This 
model confirms the findings of model LIQLEV. Liquid level rise is probably not a 
problem except for full tanks at high vent rates. Bubble populations determined with 
this model are described. 

Propellant sloshing analysis is based on an analytical solution of the hydrodynamic 
equations of motion. The solution assumes perturbational displacements of the free 
surface of an ideal liquid in an environment dominated by g dependent forces. Effects 
such as stratification or thermally driven motions are not included here. In addition 
splashing, geysering, or breakaway liquid is not accounted for. For simplicity the 
hydrodynamic solution is represented by the pendulum analogy. The forces and 
moments produced by the oscillating propellants are represented by a set of pendulums . 

The effect of baffle damping on liquid propellant motion is treated purely as an energy 
dissipation device. The propellant motion is not physically constrained, instead 
kinetic energy is removed in accordance with the theoretical energy dissipation 
provided by the baffle. This baffle damping model provides an instantaneous rate of 
energy dissipation rather than the average value over a full cycle. Unfortunately the 
solution assumes the baffle to remain below the free surface level. When the baffle is 
allowed to become uncovered the solution is in error. 

The propellant slosh parameters based on this analytical model were obtained for both 
the S-IVB fuel and oxidizer tanks along with the 6-inch scale model S-IVB fuel tank as 
a function of the undisturbed propellant interface level. These data show the second 
and higher propellant modes to be insignificant, hence they are omitted in the analysis. 
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The drop tower slosh test results provide a direct evaluation of the propellant slosh 
analytical solution as applied to the low-g condition. A digital computer program was 
established to simulate the drop tower slosh dynamics. A comparison of maximum 
liquid amplitude as a function of Froude number obtained from simulation results was 
made with published test results. Data on liquid level amplification factor was also 
obtained. Unfortunately not enough raw test data were available to expand on the 
correlation analysis. From the test data available it appeared that in addition to slosh 
motion, low-g meniscus effects were present. Under this condition the propellant slosh 
model was inadequate to completely describe the propellant slosh motion observed in 
test data. 

The same analytical model was used to simulate AS-203 orbital coast conditions. The 
results show decaying liquid oscillations at their natural frequencies with small 
perturbations produced by the reaction control motor firings. No coupled frequencies 
were observed. These results are in general agreement with published flight results. 

The Marker and Cell computer code affords a simulation model for fluid dynamics 
problems under low-g conditions. The computer code was used during this study 
phase for an evaluation of sloshing. Simulation of model S-IVB drop tower test results 
was programmed. The absence of surface tension in the model resulted in perturba- 
tions at the interface which masked the major sloshing motion. These simulation 
difficulties should be removed when surface tension is included in the model. This 
report also indicates applications of MAC to settling and stratification. 

Several areas have been defined which merit further study. The quality of recirculation 
flow for recirculation application is not adequately defined with existing models. 

Pressure rise rate with unsettled propellant requires analytical modeling and verifica- 
tion. The break-up of the interface into globules during depressurization can result 
in severe liquid carryover problems. Program EVOLVE provides an excellent tool 
to examine bubble phenomena in low gravity storage including hot spot heat leak 
evaluation and ullage definition. Further analytical development and verification with 
test data is required for slosh damping analyses for uncovered baffles. The Marker 
and Cell program provides an excellent tool to examine fluid phenomena such as 
sloshing, settling, outflow, and stratification and destratification. 

The computer codes used in this study are those already in the NASA/MSFC library 
with the exception of MAC, PRISM, LIQLEV, and EVOLVE. These latter three programs 
are supplied with input/output procedures in the appendices to this report. An improved 
version of MAC will be delivered at the completion of Phase II of this contract. 


1 

INTRODUCTION 


The S-IVB Stage was launched into a nominal 100 mile circular earth orbit on 5 July 
1966. This flight (AS-203) provided the most complete data on thermodynamic and fluid 
dynamic performance of any orbital experiment performed to date. With data from that 
experiment reduced and analyzed, a logical step was to verify available analytical 
models to determine applicability and degree of correlation. Additional data from drop 
tower tests were also evaluated and compared with predictions of analytical models. 

Previous presentations of the AS-203 experimental data have been made (Ref. 1-1, 1-2 
and 1-3). Of the many areas of low-gravity propellant behavior for which data was 
obtained, the particular areas of interest for this study were determined to be repres- 
surization, pressure rise during coast, liquid level rise bubble dynamics and liquid 
carryover, and sloshing and settling. The sequence of events shown in Figure 1-1 gives 
a good overview of the experiments conducted, their duration, and the periods of time 
for which data was available. Data acquisition was excellent except for a period of no 
data during the long term coast pressure rise. The vehicle configuration and the 
instrumentation locations are shown in Figure 1-2. Hydrogen liquid level was at 
approximately station 438 at insertion. 

During this fourteen month study, data which were presented in the above reports were 
evaluated in conjunction with the analytical models available. In the area of liquid level 
rise, new analytical models were developed. Where possible, test data were compared 
with analytical predictions. Where models show good correlation with test data, 
parametric studies were performed to define the range of operating conditions. 

The design of future upper stage vehicles and the extension of operating conditions, 
i.e. coast times, of present vehicles requires verification of available analytical 
models. It was the further aim of this study to define areas in which further effort 
is required, either through analytical development or additional experiments. 

The applicability of two computer codes to predict pressure history during repressuri- 
zation is discussed in Section 2. The heating analysis for the S-IVB vehicles and the 
models for prediction of pressure history for the settled coast condition are considered 
in Section 3. The phenomena of liquid level rise in an S-IVB vehicle is presented in 
Section 4 with a model for analysis of bubble dynamics in low-g. Section 5 examines 
the applicability of an analytical model to sloshing, considering drop tower data and 
AS-203 data. The applicability of the MAC technique to sloshing and other fluid 
dynamics problems is examined. The conclusions and recommendations for additional 
work are presented in Section 6. 
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RE PRESSURIZATION 


Reliable computer codes are required for the design of pressurization systems for 
analysis of conditions during engine restart in orbit. The interactions between 
pressurant gas and existing ullage gas and also the interaction with the liquid interface 
are not generally defined, thus empirical correlation and model verification are required. 
Similarity, the effects of recirculation chilldown flow on pressure rise during this 
repressurization period are not specifically defined in existing computer codes. It 
is the aim of this section to examine these interactions within the scope of two 
existing computer codes utilizing the experimental data available from the AS-203 
flight for variable definition and as a comparison standard. 

2.1 REPRESSURIZATION SEQUENCES FOR AS-203 

The objective is to correlate the LHg tank repressurization data during the first and 
second orbits of the AS-203 experiment. The sequence of events during the period of 
interest are described in Figure 2-1. 
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Figure 2-1. Sequence of Events Effecting Repressurization of 
LH 2 Tank S-IVB-203 

With the LOX ullage thrusters on to provide settling acceleration, the continuous vent 
valve is closed and helium is added to the LH 2 tank. Following the initiation of 
helium addition the chilldown system was turned on to prepare the engines for firing. 


2-1 


The tank pressure history for this period is shown in Figure 2-2. A schematic 
illustrating the mass and heat transfer to the S-IVB-203 LH 2 * an k * s shown in Figure 
2-3. The schematic indicated that heat is being added to the tank at the sidewall and 
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Figure 2-2. Fuel Tank Ullage Pressure During Repressurization 
and Engine Chilldown 


forward bulkhead due to heating from the environment while heat is also added along 
the intermediate bulkhead from the LOX tank. Recirculation flow is also a heat input 
to the LH 2 since the fluid leaving the tank returns to the tank at a higher enthalpy. 

The only mass being added is the helium added to the ullage. 

Initially a review was made of the Chrysler, Douglas and Marshall Space Flight Center 
reports concerning the AS-203 experiment (Ref. 1-1, 1-2, and 1-3). These reports 
were examined in order to become familiar with the general S-IVB configuration with 
specific emphasis on restart systems. 

A survey of the literature was then made to find analytical or experimental models 
which could accurately predict the ullage pressure history. Figure 2-2, of a control 
volume as shown in Figure 2-3. These models were then compared with the tools 
existing at Convair. 

Some of the more pertinent studies which were reviewed were NAS7-169, "Design 
Guide for Pressurization System Evaluation, " Aerojet General, (Ref. 2-1) ; NAS7-388, 
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Figure 2-3. LH 2 Tank Repressurization Schematic 


"Design Guide for Pressurized Gas Systems, " IIT Research Institute (Ref. 2-2); 
NAS3-2574, "Advanced Pressurization Systems for Cryogenic Propellants, " Martin 
Marietta (Ref. 2-3) and NASA TN D-3451, "Prediction of Propellant Tank Pressuriza- 
tion Requirements by Dimensional Analysis, " George C. Marshall Space Flight Center 
(Ref. 2-4). 

The Aerojet, IIT and Martin programs are set up as predesign tools for selecting 
optimum pressurization systems. They do not have the application to the recirculation 
analysis provided in the method discussed below. These three programs were not 
studied further or applied in this analysis. Additionally, the treatment of the tank 
thermodynamics in the above programs is not as refined as the NAA S-II Pressurization 
Program (Ref. 2-5), and the restriction of constant conditions for many of the factors 
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which vary considerably in the AS-203 experiment limit the value of these tools. The 
dimensional analysis technique of Thompson and Nein (Ref. 2-4) is a simple approach 
to obtaining pressurant requirements, however, it assumes a constant ullage pressure 
and simultaneous outflow. 


The two tools which were used to simulate the AS-203 LH 2 tank pressure history 
during repressurization are the S-II Pressurization Program and the PRISM program 
(Ref. 2-6). The latest version of the S-II Pressurization Program (October 23, 1964) 
was developed for NASA by North American Aviation. The PRISM program, developed 
at Convair for the Centaur vehicle, has been successfully used to predict pressurant 
requirements on several recent Centaur flights. Input for these programs was 
obtained from drawings, microfiche, reports and telecons. Configuration geometry 
was obtained from MSFC supplied drawings and reports and from telephone conversa- 
tions with MDAC. Thermodynamic properties and data were obtained from reports and 
microfiche. 


2.2 E NE RGY E VA LUAT ION 

Ambient incident energy on the LH 2 tank was determined using the Convair Space 
Vehicle Radiant Energy Program (SAINT NERO) (Ref. 2-7), Convair Radiation 
Configuration Factors Program (Ref. 2-8) and the Convair Variable Boundary II Heat 
Conduction Program (P2162), (Ref. 2-9). These programs are explained in detail 
in Section 3. The SAINT NERO program was input with the orbital parameters, 
surface optical properties and vehicle geometry in order to calculate the thermal 
energy absorbed and reflected by the exposed surfaces. The configuration factors 
program was used to determine the view factors between the forward skirt, instru- 
mentation unit and nose fairing and the hydrogen tank forward bulkhead. Heat flux 
calculations are completed using the Variable Boundary II Heat Conduction Program. 
This program was input using free convection from the tank wall to the fluid, with 
cases run for several different values of insulation conductivity, specific heat and 
emissivity in order to accurately reconstruct the heat flux history to the LH 2 tank. 
Several heat flux comparisons are made with "measured" values in Figures 2-4 and 
2-5. 

2.3 THE PRISM PROGRAM 


The PRISM program was initially developed for predicting pressurant requirements and 
pressure histories for the Centaur fuel and oxidizer tanks. Basically the program is a 
first law analysis of the propellant tank allowing pressurant inflow, propellant outflow, 
tank wall heating and recirculation flow. Some modifications were required in order to 
use the program for the S-IVB repressurization simulation. These modifications 
included addition of a subroutine to handle transient heat transfer through thick walls of 
two different types of materials, alteration of block data and call statements to account 
for geometry differences between the Centaur and S-IVB vehicles, and modifications to 
the recirculation and pressurant inflow routines to allow input as a function of time. A 
listing of the program as it was used is given in Appendix A . 
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Figure 2-4, Ullage Heating Rate Comparison 



Figure 2-5. Liquid Heating Rate Comparisons 
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Several options are available in using the PRISM program which can be easily used to 
examine the influence of significant variables on the tank pressure history. Using the 
heat flux conditions shown for at m . 20 in Figures 2-4 and 2-5 the PRISM program was 
run for the following cases: 

1. Full heat transfer between the liquid and ullage: Wall heating of liquid does not 
directly produce vapor, all recirculation heat addition contributes to the liquid 
sensible heat. 

2. No heat transfer between the liquid and ullage: Wall heating of liquid does not 
directly produce vapor, all recirculation heat addition contributes to the liquid 
sensible heat. 

3. Full heat transfer between the liquid and ullage: Wall heating of liquid does 
produce vapor directly at the wall, all recirculation heat addition contributes to 
the liquid sensible heat. 

4. Full heat transfer between the liquid and ullage: Wall heating of liquid does not 
directly produce vapor, all recirculation heat addition contributes to boiloff. 

Comparison of cases 1 and 2 shows the influence of interfacial heat transfer. 
Comparison of 1 and 3 illustrates the significance of the side wall heat flux. 
Comparison of 1 and 4 shows the effect of recirculation flow. All comparisons are 
between the maximum and minimum expected values of each of the three parameters 
being examined. The maximum pressure occurs for case 4 when ullage heat transfer 
variables are set to their maximum value. 

Figures 2-6 and 2-7 give the pressure history for each of the above four cases along 
with the pressure history recorded in the AS-203 flight (previously shown in Figure 
2 - 2 ). 


Analysis of the comparisons of Figures 2-6 and 2-7 illustrates that of the cases run, 
case 1 most accurately represents the pressure history inside the S-IVB tank during 
repressurization. Case 1, which is the minimum heat transfer condition, gives a 
slightly higher pressure rise than actually occurred in the AS-203 experiment 
repressurization. All cases show a higher initial pressure rise when helium is being 
added, indicating that the mixing of the helium entering the tank is not as efficient as 
assumed in the model. The pressure rise subsequent to helium addition is higher in 
the actual flight case, probably due to the higher ullage heating rates indicated in 
Figure 2-4. The recirculation however appears to possess as important a part as the 
difference in ullage heat flux. For a more accurate modeling of the AS-203 case it is 
necessary to alter the mixing process, increase the heating rate to the ullage and reduce 
the importance of recirculation flow. 
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Examining the comparative results of Figures 2-6 and 2-7 by comparing case 1 to case 
2 indicates the ullage is actually cooled by the liquid in case 1 making the pressure 
rise rate for no interfacial heat transfer in case 2 higher than that of case 1. Case 3 
illustrates the effect of treating the wall heating as producing vapor at the wall. The 
final variable studied was the most significant in controlling pressure rise. The 
difference between cases 1 and 4 is due to the recirculation flow being treated as 
contributing directly to either the liquid or ullage. When recirculation energy is added 
directly to the ullage, the pressure rise is significantly greater than experienced for 
only sensible heating from recirculation flow. 

Conclusions of the study are that the PRISM program has given reasonable results in 
cases 1 , 2 and 3. Modifications could improve the mixing capability and handling of 
the recirculation flow. The difference in heat flux between the experiment and 
analysis could be adjusted by modifying coefficients in the Variable Boundary n Heat 
Conduction Program although it is not obvious how this would be done at this time. If 
additional correlations are attempted, these modifications would be applicable in 
developing an appropriate model for pressurization analysis. 

2.4 S-n PRESSURIZATION MODEL APPLICABILITY 

A second computer model applicable to repressurization analyses is the NAA S-II 
pressurization model (Ref. 2-5). This computer program has a comprehensive 
treatment of ullage free and forced convection mechanisms which make the program 
particularly applicable to pressurization analyses. The multi-node, multi-component 
ullage model provides descriptive information on gradients resulting from pressuriza- 
tion with warm helium. A significant portion of the AS-203 restart sequence 
involved recirculation of engine coolant flow which entered near the bottom of the bulk 
liquid. The consequence of this flow in modeling the resultant pressure rise led to 
difficulties which could not be handled within the scope of this study. 

2.4.1 PRESSURE RISE WITHOUT RECIRCULATION SIMULATION. A computer 
simulation of the AS-203 flight for range time of 5541-5911 seconds was performed 
with the S-II pressurization program, P3542, with recirculation flow absent. The 
utility of this approach lies in establishing the importance of the input of quality 
recirculation flow into the liquid. The ullage heat fluxes are also of significant 
importance in this model. The methods for obtaining heat flux data were described 
in Section 2. 1. Other facets of the determination of heat flux data are discussed in 
Section 3. The desired heat flux values for ullage and liquid as obtained from P2162 
are presented in Figure 2-8. 

A shortcoming of this pressurization program is the difficulty in achieving the desired 
heat input to the program. The heat input is achieved by a time-dependent ambient 
coefficient Uy\ multiplied by a temperature difference resulting from an input time- 
dependent ambient temperature and a program calculated outer wall temperature. A 
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Figure 2-8. Comparison of Propellant Heat Fluxes Predicted With P2162 
and Those Achieved in P3542 


convenient solution here is to diminish the coefficient such that the overall temperature 
difference is only slightly dependent on the wall temperature. With this achieved, 
additional knowledge of the inner gas to wall heat transfer coefficient is required to 
select initial temperature gradients and temperatures for the insulation. This is 
frequently only available through a trial and error approach. This approach may be 
unique here at Convair in that heat transfer calculations are performed with other 
programs as described in Section 2. 1 prior to using the pressurization program. 

These heat transfer programs permit a variation in heating to the various quadrants 
which is significant but is not an available option in pressurization programs. These 
programs as indicated earlier, also afford more accurate modeling of shroud effects 
on forward bulkhead heating. Thus, the procedure becomes one of accurately defining 
the heat transfer, then lumping heating rates for all quadrants to express them only 
as a function of axial location and time, and finally transmitting this information to the 
selected pressurization program. 

In the S-II pressurization program, minor modifications have been made to afford a 
check between the achieved heat flux and the desired heat flux obtained from the heat 
transfer programs. These include the heat flux at each node, the energy addition to 
ullage and liquid during a time step, and the summation of this energy over the run. 
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It then becomes a simple matter to compare the heating information from P2162 with 
that obtained in a given pressurization run. These modifications are recommended to 
this program to provide a check on performance; energy input is frequently a quantity 
of interest. 

In the simulation run for the period 5541 to 5911 seconds, the desired heat flux is 
compared with that achieved in P3542 in Figure 2-8. The agreement between the 
ullage heat flux is of considerable more importance in this investigation since ullage 
pressure is little affected by heating the subcooled liquid. The liquid was initially 
saturated before the pressure increase resulting from the helium pressurization 
resulted in the subcooled liquid state. This period started at 5541 seconds with the 
helium addition rate trailing off to zero at 5573 seconds after the addition of 8.7 lbs 
of helium. 

The pressure rise history from the simulation rim with computer program P3542 is 
shown in Figure 2-9. The steeper initial slope and the rapid change in pressure rise 
rate at 5560 seconds are attributed to unrealistic matching of ullage heating for this 
time period as indicated in Figure 2-8. More careful matching during this time 
period could have resulted in a better matching of AS-203 data; however the P3542 
prediction would still exhibit a lower pressure rise rate after 5600 seconds. As 
expected, without the contribution from recirculation flow, the pressure rise does 
not come up to the level experienced with AS-203. Since heat flux to the ullage in 
this simulation slightly exceeded the predicted requirement from heat transfer 
programs, it appears the additional difference in pressure may be attributable to 
recirculation flow. Hand calculations indicate the additional energy requirements 
to match the observed pressure rise rate is approximately 2800 BTU. 
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Figure 2-9 . Flight Data and Pressure Prediction With P3542 For 
Repressurization Phase 
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This is equivalent to an energy flux of 27,000 BTU/hr which could result from a time 
average quality of only ten percent for the recirculation flow for 100 seconds. Such a 
situation is highly probable. 

Although injecting a point heat flux at the tank location of recirculation return was 
considered, the degree to which the liquid is subcooled for AS-203 simulation negates 
any ullage contribution from such an energy input. The test data confirmed that the 
liquid did remain subcooled during this period. Evaporation due to liquid heating only 
occurs when the energy reaches the vicinity of the interface and the interface nodes 
become saturated. 

Major modifications to the P3 542 program would be required to distribute the 
recirculation energy in a representative manner to the appropriate nodes. Such 
distribution would be dependent on the flowrate and quality of the recirculation flow, 
the decrement in temperature below saturation, liquid depth, and gravity level. 
Essentially, it becomes a problem of bubble collapse or bubble migration which 
requires an elaborate model on its own. 

In conclusion, while the program P3542 is quite satisfactory for pressurization and 
ullage heating simulations, it is deficient in being capable of predicting pressure 
histories when recirculation flow is involved. Modifications to the program could 
be made to incorporate data from another program which defines recirculation 
flow energy distribution, as a compromise solution. The second program referred 
to above could well be a form of the program EVOLVE discussed in Section 4. 4. 
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CLOSED TANK PRESSURE RISE 


Analytical models to predict pressure rise during orbital coast required verification. 
The AS-203 vehicle is unique in providing extensive temperature and pressure data 
for a tank with considerable liquid hydrogen remaining aboard. Future space missions 
require the storage of propellants during short coast periods as well as up to many 
weeks in orbit. These analyses conducted here were aimed toward reviewing the 
status of available tools for predicting the heat input to the tank, determining the 
important contributions to pressure rise rate in a closed tank, and verifying the 
available analytical tools with the AS-203 data. 

A knowledge of pressure rise rate is an important parameter in defining propellant 
requirements and also tank venting requirements for orbiting vehicles. The methods 
examined here are quite appropriate for determining the thermal environment of the 
vehicle. One may still anticipate some variation between the settled propellant 
results attained here for pressure rise rate and those predicted for an unsettled 
propellant. Accurate estimates of the wetted wall area will enable the methods 
verified here to be used for both cases. 

3 . 1 PROPE LLANT TANK HEATING 

The propellant pressure rise correlation task was performed for the locked-up 
hydrogen tank portion (4th orbit) of the AS-203 flight. The method of approach was to 
model the known vehicle geometry, surface optical properties and orbital parameters 
using the Convair Space Vehicle Radiant Energy Program (SAINT NERO) (Ref. 2-7) 
to calculate the thermal energy incident on the exposed surfaces of the vehicle and 
that portion of the incident energy which is absorbed by the vehicle surface. The next 
step was to determine the radiant geometric view factors between heated vehicle 
surfaces in the forward skirt, instrumentation unit and nose fairing and the hydrogen 
tank forward bulkhead which is seen by these surfaces. This calculation is done 
using the Convair Radiation Configuration Factors Program (CONFAC) (Ref. 2-8). 

The third step in the analysis was to perform a complete energy balance on the hydrogen 
tank using the Convair Variable- Boundary II Heat Conduction Program (Ref. 2-9). 
Subroutines of this program accommodate boundary conditions of free or forced 
convection, radiation to an external environment, radiative heat exchange between 
elements, or any other time-dependent heat flux. Calculations were made for wall 
conductivity values represented by the foam insulation, gaseous hydrogen, and 
gaseous helium. The propellant heating data from above was utilized in the various 
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propellant thermodynamics computer programs to determine the propellant tank 
pressure rise prediction. A similar analysis was reported under Contract NAS8-20165 
in References 3-1 and 3-2 involving orbital data from Saturn S-IV stage flights. 

3.1.1 ORBITAL HEATING . The geometrical configuration of the orbital vehicle 
being analyzed for the closed tank pressure rise test correlation is somewhat compli- 
cated by the fact that the forward skirt, instrumentation unit and nose fairing remain 
attached to the S-IVB vehicle during flight. The thermal energy balance on the 
"locked-up" fuel tank involves the determination of the heat leak into the tank through 
the side wall, the forward bulkhead, and the aft bulkhead and aft skirt joint. The 
first two heat leaks are caused by radiant energy exchange with the orbital space 
environment. Side wall heating is due to direct environmental irradiation. Forward 
bulkhead heating is due to environmental irradiation only indirectly, since the bulkhead 
is completely enclosed by the forward skirt, instrumentation unit (IU) and nose fairing. 

Prior to conducting an energy balance on the orbital fuel tank, a geometrical model of 
the problem configuration is established. The environmental irradiation is calculated 
for the cylindrical tank side wall, forward skirt and IU as well as the conical nose 
fairing. To do this, the cylinder and cone are divided into quadrants corresponding 
to the boost vehicle fin lines. This vehicle surface geometry and the fourth revolution 
orbital parameters (Ref. 3-3) are input to the Convair SAINT NERO program (Ref. 2-7) 
to determine the incident and surface absorbed heat flux due to radiation and free 
molecular aerodynamic heating. In the SAINT NERO program, the curved surface 
geometry is approximated by small flat plate elements and the surface heat flux 
calculated on each element due to direct solar radiation, earth reflected solar 
radiation (albedo), earth thermal radiation, and free molecular aerodynamic heating. 
The incident heating calculations are made at twenty-four locations around the orbit 
with special calculations made just prior to and following both ingress and egress of 
the vehicle from the earth's umbra. Since the tank energy balance is concerned with 
the surface absorbed energy, the vehicle paint radiation surface absorption coefficients 
for both solar and earth thermal radiation wave lengths are input to the program. The 
program output then provides net surface absorbed heat flux. The values of surface 
absorptance used for the calculations areQ!g = .24 and a-p = .23 for the conical section 
(Ref. 1-3) and ag = .33 and a-p = .89 for the cylindrical section (Ref. 1-2). The value 
of the abledo used in the SAINT NERO calculations was obtained from Reference 3-4 
where radiation measurement values are obtained from satellite launches on similar 
trajectories to that flown by the AS-203 vehicle. The value used is 0.29 times the 
solar constant. 

In the program, the vehicle is flown nose first and flight path oriented with fin position 
I oriented toward the earth. The surface absorbed heat flux for the cylindrical and 
conical sections is shown respectively on Figures 3-1 and 3-2. The heating data are 
shown for the four quadrants of each section. Quadrants I-IV and I— II are on the side 
of the vehicle pointed toward the earth; it is readily seen that there is little variation 
in surface heat flux during the orbit period. For the quadrants positioned opposite the 
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Figure 3-1. Orbital Radiative Heating of the Cylindrical Sidewall of the AS-203 
Vehicle 
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Figure 3-2. Orbital Radiative Heating of the Conical Nose Fairing of the AS-203 
Vehicle 
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earth-vehicle line of sight, there are large variations in heat flux with time. This is 
especially true as the vehicle enters and leaves the earth's shadow. It is because of 
these large angular variations in surface absorbed energy that the vehicle is broken 
into quadrants for the heating analysis. The heat flux values shown are average values 
over the surfaces indicated. The data shown on Figures 3-1 and 3-2 are utilized as 
boundary conditions for the fuel tank energy balance calculation. 

3.1.2 HYDROGEN TANK ENERGY BALANCE. The energy balance on the fuel tank 
is performed in a transient calculation as a function of flight time. Before the 
calculation can be performed, however, it is necessary to further specify the 
geometrical model of the vehicle. Since the thermal energy interchange between the 
tank forward bulkhead and the skirt, IU and nose fairing is principally by radiation, 
the geometrical shape (view) factors must be determined between the heated outside 
surface nodes (sources) and the bulkhead surface nodes (sinks). This is done by 
again dividing the forward structure and bulkhead into quadrant nodes. Calculations 
are performed using the Convair Radiation Configuration Factors program (Ref. 2-8), 
to define the view factors between nodes. For purposes of the incident heat transfer 
analysis, the S-IVB fuel tank was divided into quadrants and into three axial sections, 
at STA 555 where the forward bulkhead ends and at STA 445 near the nominal wetted 
liquid level during fourth orbit, a total of twelve sections. Little difficulty occurred 
in the analysis of the lower two sections; however the forward dome area presented 
some unusual analytical problems. 

The energy input to this forward bulkhead area is by radiation from the forward 
shroud cylindrical and conical sections. McDonnell-Douglas indicated the forward 
bulkhead was covered with three layers of aluminized mylar with an aluminized 
side out having an absorptivity of 0.05. If the mylar side had been out, the appropriate 
absorptivity may have been as high as 0.55. Environmental conditions during the 
period prior to lift-off may also have resulted in deterioration of the first value to a 
significantly higher value. Through temperature differences in the forward wall and 
the magnitude of predicted fluxes, it is shown to be highly probable that the absorptivity 
was considerably above 0.05 although possibly not as high as 0.55. Although two or 
three layers of aluminized mylar may have been used, the outer surface absorptivity 
is controlling and the inner layers only tend to modify the effective k of the insulation; 
additionally, the mylar insulation k is not considered to be a significant variable in 
this configuration. 

For the absorbed energy analysis to the propellant, the forward bulkhead was thermally 
modeled in P2162 by dividing the dome into quadrants along the fin lines and into four 
thickness nodes in each quadrant. To determine the thermal energy transferred to the 
dome from its external environment, radiation view factors were calculated between 
the dome quadrants and the quadrant sections of both the cylindrical instrumentation 
unit and forward interstage adapter and the conical nose fairing. A time dependent 
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energy balance was taken on the cylindrical and conical sections and the energy 
input to the bulkhead calculated by performing a simultaneous energy balance 
on the dome itself. The bounding heat flux on the outside of the bulkhead was 
radiative while free convection was assumed to govern the transfer of energy 
away from the inner dome surface to the gaseous propellant sink for the closed 
tank calculation. For the free convection calculations, the vehicle acceleration 
level was varied from 3.27 x 10“ 4 g's at tank lock-up to 7.3 x 10-5 g» s a t the 
time of final loss of communication. These inputs were obtained from AS-203 
flight acceleration data. 

An appropriate method to check the adequacy of propellant tank thermodynamic 
modeling techniques is to compare the temperature difference measured across 
the tank wall with that predicted from the computer simulation. Data obtained 
for the fuel tank forward bulkhead are used for this temperature modeling 
comparison. The difference in temperature between the inside and outside 
surfaces of the bulkhead wall along fin lines I and HI at Station 652.7 are shown 
on Figure 3-3. The temperature differences were obtained from temperature 
sensors C85 and C328 (fin line I) and C86 and C329 (fin line III) on the AS-203 
orbital vehicle. 

For this investigation, the tank energy balance was made using both the 
extremum values for dome absorptivity. The acceptability of either value in 
the thermal modeling was based upon both the comparison of analytical test 
dome wall temperature differences and tank pressure rise rates. From the 
values of both predicted and experimental temperature differences shown on 
Figure 3-3, it is readily apparent that the values obtained with the value of 
0.05 are entirely too low and that this value of surface absorptivity is incorrect. 
On the other hand, the predicted temperature difference values obtained with 
an absorptivity value of 0. 55 are somewhat too high. It appears that the value 
is somewhere between the two extremes. This anomaly was resolved in the 
selection of a dome absorptivity of 0.20 which is a compromise between the 
extremes studied earlier; the value has some basis according to mylar 
deterioration studies made by Lemke (Ref. 3-5). The use of this value on 
forward dome wall temperature differences is also shown in Figure 3-3. 

This prediction does represent the data satisfactorily except for discrepancies 
during the initial transient which are discussed in the following paragraph. 
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Figure 3-3. Forward Dome Wall Temperature Difference at STA 652.7 for the AS-203 Pressure Rise Experiment 



One other modeling problem is apparent from a review of the experimental data in 
Figure 3-3. The temperature difference decay just prior to and immediately after 
the start of the closed tank pressure rise test (17140 seconds) is not properly predicted 
by the analytical model. The assumption was made in the thermal model for problem 
initial conditions that the temperature gradient across the tank dome wall was a straight 
line as shown as initial estimates in Figure 3-4. Due to the very rapid chilldown of 
the tank due to a tank venting blowdown and the low conductivity of the tank wall, this 
assumption was incorrect. It appears that the initial wall gradient may have been 
more nearly shaped like the approximation of Figure 3-4. A gradient of this type 
would explain the reason for the difference in slope of the temperature difference decay 
line between analysis and test. 

The initial gradients which were assumed for the walls as input to the Convair 
Variable Boundary II Heat Conduction Program, P2162, (Ref. 2-9) were re-evaluated 
with a steady-state program which iterates until gradients are attained which support 
boundary conditions imposed on the problem. Boundary conditions imposed were 
external heat flux and internal conditions of fluid properties and sink temperatures. 
These internal wall conditions were measured temperature data at 16,700 sec 
representing conditions prior to the blowdowns at 16,723 and 17,023 sec. The 
steady-state temperature gradients at 16,700 seconds are shown for the ullage 
cylindrical section in Figure 3-4. Measured values of inside wall temperature at 
16, 920 seconds, as indicated by the earlier selection of initial gradients, were about 
45°R. Thus, in the period from 16,700 sec to 16,920 sec, the profile in the wall 
changes from the indicated earlier straight profile to the curved profile indicated by 
dotted lines . This inner wall transient results from rapid wall cooling through forced 
convection during venting. It further accounts for the large initial temperature 
differences shown in Figure 3-3. These large differences decrease as venting ceases 
at 17,132 sec and the inner wall starts to increase in temperature at 17,500 sec. 

These transients were not originally adequately modeled with P2162 since stipulated 
inner boundary conditions were only free convection. The problem would have to be 
run in steps to account for these changes in conditions. However, modeling this 
phenomena during this short period is not considered important to overall long term 
heat flux results. 

The results of the analysis for heating rates through the forward bulkhead are shown 
in Figure 3-5. The predicted heat flux for the cylindrical side wall sections is shown 
as a basis of comparison for the predicted magnitude of the forward dome heating. If 
the absorptivity of . 05 had existed, the dome heating would have been almost insignifi- 
cant. As indicated in Figure 3-5, for absorptivities investigated, the dome heat flux 
is always significantly less than the cylindrical section, although the dome surface 
area exceeds the dry side wall in this case by 18 percent. This fact is further 
demonstrated in Figure 3-6 where a heat flux comparison is made for the forward 
bulkhead, the ullage cylindrical section, and the liquid. Test data points from 
Reference 1-1 on Figure 3-5 correlate reasonably well with the cylindrical section 
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Figure 3-4. Wall Gradients for S-IVB Thermal Modeling 
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Figure 3-5. Comparison of Ullage Heating Rates for Two 
Absorptivities With AS-203 Data 



Figure 3-6. Heat Fluxes to Sections of AS-203 During Long Term Coast 
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prediction. Test data in the dome area confirms the absorptivity value is higher than 
.05. As the absorptivity on the forward dome increases, the forward bulkhead heating 
rates become a more significant contribution to ullage heating. From the pressure 
rise analysis discussed in Section 3. 3 it appears ullage heating for the closed tank 
experiment should total about 49,000 BTU. The absorptivities of 0.05 and 0.55 gave 
respectively 41,000 and 61,000 BTU for ullage heating. The negative heating flux in 
Figure 3-5 and the inability to match the temperature differences in this area with 
Q!= .05 lend support to a value of absorptivity near 0.20. As expected the prediction 
with a equal 0.20 falls between the previous predictions. It is significant that 
predictions with an absorptivity of . 20 more closely matches the heat flux calculated 
by wall temperature difference than the other values for dome absorptivity. The wide 
scatter in the test data indicates the uncertainty of the exact behavior after 20,000 sec. 
A significant point is that for either .05 or .20 for a, the 3,000 or 7,000 BTU/hr 
flux is still a minor portion, less than 25 percent, of total ullage heating. 

The heating rates to the liquid and gas are calculated in the thermodynamic program 
REPORTER (Ref. 3-6). The heating rates are input to the program as a function of 
axial location and the program calculates liquid and ullage heating. These heating 
rates are presented in Figure 3-7 for the ullage where a comparison can be made 
with the results reported in Reference 1-1. There, two approaches were used in an 
evaluation of the heating rates, one an evaluation of heating rates through changes in 
ullage fluid properties, and the other a calculation using measured wall temperature 
differences and an assumed thermal conductivity. The authors of Reference 1-1 prefer 
their results on change of fluid properties since it is in agreement with continuous vent 
flow and the thermal conductivity in the temperature difference method is probably 
higher than used. The comparison of these two methods with Convair predicted results 
suggests better agreement for the ullage during the fourth orbit with the wall tempera- 
ture difference method, however, the phase angle of the cyclic nature of the data is 
not matched. Nonetheless, the most recent prediction using a dome cxof 0.20 is 
preferred. 

For liquid heating, predicted results are compared with test data in Figure 3-8. 
Predicted results again compare more favorably with the heating rate determined 
from the wall temperature difference method. Investigators in Reference 1-2 report 
a heat input of 79,000 BTU/hr to the liquid using wall temperature difference and 
69,000 BTU/hr plus 47,000 BTU/hr boil-off using fluid properties. The Convair 
predicted value is only 52,000 BTU/hr input to the liquid, a value somewhat lower 
than the other investigators; nonetheless this value is sufficient heating to match the 
pressure profiles. 

3.2 PRESSURE RISE RATE. 

The existence of a valid model for thermal analysis and substantial results are 
prerequisite to the ability to predict the pressure rise rate. Other than defining hot 
spots and maximum temperatures, the thermal analysis is primarily responsible for 
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Figure 3-7. Comparison of Ullage Heating Rate With Calculated Values From AS-203 Data 



Figure 3-8. Comparison of Liquid Heating Rate With Measured AS-203 Data 
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an adequate model of the thermodynamic state of the fluid. A study of the pressure 
rise in the locked-up S-IVB - AS-203 tank during the range time of 17, 100 to 28,000 
seconds was completed. The results for the two programs used, P3542 (Ref. 2-5) and 
REPORTER (Ref. 3-6) are presented in Figure 3-9. Results indicate the important 
effect of the emissivity value for the forward dome. The results of the modeling are 
considered excellent. 

Program REPORTER is a First Law thermodynamics analysis with a capacity for 
analysis of a 10 node problem permitting stratification in the ullage because of 
different axial heating rates; however, the use of a single node problem with one liquid 
and one ullage node has been found to give similar results for pressure rise rate to 
the multinode configuration. In the interest of economy, the single node analysis 
has been used. 

The liquid thermodynamic states determined with RE PORTER were independent of 
absorptivity on the forward bulkhead. The liquid in all instances remained subcooled 
during the entire simulation with no evaporation occurring. This is not entirely in 
agreement with previous investigators. 

The differences in ullage heating due to different dome absorptivities resulted in 
different pressure rise rates. These rates are compared in Figure 3-9 with the 
pressure history of the AS-203 flight for the period of the closed tank experiment. 

These cases indeed bracket the test data. If boil-off occurred and was not accounted 
for in REPORTER, inclusion of boil-off would increase the low absorptivity prediction 
toward the flight data. It is noteworthy that the degree of subcooled liquid, 5. 7°R 
below the saturated conditions for final test data pressure, indicates increasing liquid 
heat flux two-fold would not result in a prediction of boil-off with program REPORTER. 
Thus, to expect a contribution from evaporation with this model is unacceptable and the 
contribution of boil-off must be added outside the program. This difficulty with 
boil-off contribution has been experienced elsewhere in models which fail to adequately 
model stratification. 

The analysis of the long term pressure rise during coast with the program P3542 
developed by Epstein (Ref. 2-5) provides insight into the various contributions to 
pressure rise. Again, the significance of ullage heating cannot be over emphasized. 
Nonetheless the modeling with P3542 could at this point be improved only slightly with 
extra effort expended in matching predicted ullage heat flux with that input to the 
ullage gas. As indicated earlier, matching the predicted heat flux which leaves the 
inner tank wall with the desired heat flux calculated in P3542 is a cut-and-try process. 
The resistance and heat sink capability of the wall enter into the problem. 

The modification to P3542 which permits monitoring energy input to the ullage and 
liquid for each time step and the summation of energy input provides information to 
evaluate program sensitivity to ullage heating. The predicted or desired heat input 
is compared in Figure 3-10 with the achieved heat input for two cases run with P3542. 
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Figure 3-10. Comparison of Propellant Heating Rates Predicted With P2162 and Those 
Achieved in P3542 


The desired heat input to the ullage was 53,700 BTU from P2162 for the period of lock-up. 
Case 1 with P3542 with 50, 160 BTU input resulted in a pressure rise to 38.1 psia while 
Case 2 with 55, 800 BTU resulted in a rise to 41. 1 psia, both from 12.5 psia in 5700 
seconds. This sensitivity to heat input suggests the required accuracy for heat input 
must be better than 5 percent if pressure rise rate is to fall within 1 psia during this 
type of coast phase. The Case 1 and 2 heat fluxes in Figure 3-10 resulted in the Case 
1 and 2 pressure curves of Figure 3-9. The absence of AS-203 test data in the region 
18,000-21,000 seconds and the backward extrapolation of the later data suggest the 
flight data curve may be higher than indicated. The Case 1 correlation in Figure 3-9 
based wholly on predicted data is gratifying. 

Another significant factor in the analysis with these two programs is the results for 
evaporation or boil-off. Program REPORTER predicted zero boil-off while P3542 
predicted 32 and 36 lbs respectively for the two cases above. These latter values are 
significantly lower than those given in earlier studies where in excess of 200 lbs was 
reported. 
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In conclusion, the results of pressure rise rate are satisfactorily predicted with both 
REPORTER and P3542 within a desirable accuracy range. Both programs are 
equally dependent on good data for ullage heating, probably requiring 5 percent 
accuracy, while both are inadequate relating to effects of liquid stratification. The 
model by Epstein, P3542, only partially recognizes the boil-off contribution. 
Modifications to P3542 to monitor ullage heating are believed to aid significantly in 
the analysis of data. 
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DEPRESSURIZATION AND LIQUID LEVEL RISE 


A depressurization or vent down of a cryogenic tank in orbit remains a realistic 
requirement, although recent zero-gravity vent systems have lessened this technology 
requirement somewhat. Nonetheless, current vehicles are vented down from an initial 
settled propellant condition. The phenomena of liquid level rise and liquid carryover 
are of interest to those defining propellant requirements. Photographic coverage of 
AS-203 did not indicate significant liquid level rise, but did show liquid globule 
dynamics. There is a requirement to define liquid globule behavior in the ullage. 

There is a requirement to define liquid interface behavior at higher vent down rates 
and the bulk liquid dynamics underlying the interface response. 

The behavior of the liquid interface is analyzed with three models in this section. The 
first portrays gross bulk boiling, a second develops boundary layer vapor bubbles due 
to boiling, while a third examines liquid level rise resulting from a solution to overall 
bubble dynamics in a settled liquid. The models are presented in order of increasing 
complexity. The latter has broad application to problems of bubble motion in low 
gravity environments. 

4.1 AS-203 DATA ANALYSES 

During a rapid venting operation, boiling phenomena will have a significant influence on 
the dynamic and thermodynamic behavior of a propellant. There are two potential 
problems associated with venting a propellant tank under conditions of reduced gravity. 
These are: 

1. Loss of propellant by boilover due to liquid level rise. 

2. Loss of propellant from dynamics of liquid globules in the venting vapor. 

This section describes the main findings of the AS-203 data analyses pertaining to the 
rapid depressurizations of the fuel tank. 

Three rapid depressurizations of the liquid hydrogen (LH 2 ) tank were performed during 
the orbital flight of the S-IVB - AS-203 stage. The first was conducted through the 
continuous vent system (CV) and occurred 55 seconds after J-2 engine cutoff. The 
second and third blowdowns were through the non-propul si ve vent system (NPV) and 
occurred during the third orbit of flight. 

For the first depressurization, 19, 000 lb of LH 2 were present in the tank. Because of 
the previous boost flight, the LH 2 was settled in the bottom of the tank approximately 
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six inches below the baffle. The pressure was decreased from 30 psia to 22 psia in 
170 sec during which 60 lbs of hydrogen vapor were vented. To determine the liquid 
level rise, temperature and liquid-vapor sensors in the vicinity of the initial liquid 
level were examined. 

Temperature sensors C0345, C0346, and C0347 (see Figure 4-1) were plotted against 
time during the first blowdown and are shown in Figure 4-2. Also given are the heights 
(Ah) of these sensors from the settled liquid- vapor interface (S-IVB Sta. 443. 5) at J-2 
engine cutoff. The instrumentation indicates that 17 sec after engine cutoff C0346 and 
CO 347 become wetted for about 20 seconds. Because of the short wetting period, it 
appears that a slosh wave was generated at J-2 engine cutoff. On the down-cycle of 
the slosh wave, CO 345 indicated dry for 30 seconds, C0346 dried for 60 seconds, and 
C0347 remained dry during the remainder of the first blowdown. On the second up- 
cycle of the slosh wave C0345 indicated wet for the remainder of the tracking period 
and C0346 indicated wet for 20 seconds. On the second down-cycle, C0346 showed 
dry for the remainder of the first depressurization. Since C0346 and C0347 remained 
dry during the latter portion of the first rapid blowdown, we can conclude that no 
significant liquid level rise due to vapor entrainment was present during this 
depressurization. From Figure 4-2 it is noted that the liquid was subcooled (tem- 
perature of 39. 3°R or saturation pressure of 22. 5 psia) at the start of first de- 
pressurization, therefore one would not expect bulk boiling as the pressure decreased 
from 30 to 22 psia. 

Liquid-vapor sensor N052 which was at the same station as temperature sensor C0347 
indicated the same wetting and drying behavior as C0347. Measurement N052 was the 
only liquid-vapor sensor that appeared to operate correctly, since it agreed with 
measurements of C0347. Sensor N052 was a variable resistance type sensor similar 
to those used on the Centaur vehicle. The other liquid-vapor sensors seemed to trap 
liquid once they became wet. 

During the third orbit, the second rapid depressurization was conducted through the 
NPV system with 16,300 lbs of LH 2 remaining aboard. Since the tanks had been 
operating with continuous venting prior to this blowdown, both the liquid and the 
ullage were at saturation temperature throughout, and the liquid was settled in the 
bottom of the tank. The pressure was decreased from 19.5 psia to 13. 8 psia in 180 
seconds, and 360 lbs of hydrogen vapor were vented. The television camera film, 
temperature sensors, and liquid-vapor sensors were examined to establish the 
magnitude of liquid level rise for this venting period. 

The TV camera at the top of the tank recorded a white fog forming above the liquid 
level at the beginning of the venting operation. This fog reached the top of the tank 
1-1/4 minutes later and prevented visually locating the liquid level during the 
depressurization. Temperature sensors C0345, C0346, and C0347 were plotted 
against' time during the second rapid blowdown and are shown in Figure 4-3. Since 
both the liquid and ullage were saturated, temperature sensors were not effective in 
distinguishing liquid from vapor. 
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Figure 4-1. LH 2 Temperature Sensor Location in S-IVB Tank 
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Figure 4-3. Temperature Versus Range Time During Second Depressurization For 
Temperature Sensors in Vicinity of Initial Liquid Level 




It would have been more advantageous to run a pressure rise test prior to this depres- 
surization rather than to operate the CV system. Locking up the tank would have set 
up stratification in the ullage and would have made temperature sensors more effective 
in distinguishing liquid from vapor as was demonstrated with the first depressurization 
in Figure 4-2. 

Liquid- vapor sensor N052 which was 35. 5 inches above the initial liquid level is shown 
plotted in Figure 4-4 for the second blowdown. The output of N052 has been erroneously 
processed and presented in degrees Rankine instead of volts. However, the use of the 
output to indicate wet or dry appears valid. The blowdown was initiated at 14, 342 
seconds and 40 seconds later N052 became wet and continued to intermittently wet and 
dry during the remainder of the venting sequence. After termination of the venting 
operation at 14,525 seconds, this sensor continued to alternately wet and dry with 
decreasing frequency. Since earlier observations indicated N052 was the only liquid- 
vapor sensor operating correctly, the data from this sensor suggest most of the liquid 
level rise was due to sloshing and not to vapor entrainment caused by boiling. 



Figure 4-4. Response of Liquid-Vapor Sensor N)52 During Second Depressurization 
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The third rapid depressurization test consisted of two venting cycles spaced 200 seconds 
apart. For the first cycle, the pressure was reduced from 17 psia to 13 psia in 90 
seconds, and 150 lbs of hydrogen vapor were vented. During the second cycle, the 
pressure was reduced from 14. 4 psia to 11. 9 psia in 100 seconds, and 160 lbs of vapor 
were vented. The results of the third blowdown are quite similar to those of the 
second. Fog formation and saturated conditions again prevented determining the 
position of the liquid level. The results of liquid-vapor sensor N052 are shown 
plotted in Figure 4-5 and 4-6 for the third venting sequence. The first step of the 
two-step blowdown was initiated at 16,730 seconds and about 50 seconds later, N052 
became wet for approximately 180 seconds; thereafter, N052 alternately dried and 
wetted before, during, and after the second step of the blowdown. This observed 
wetting-drying cycle could have been caused by globules in the ullage or a low level 
slosh wave. A slosh wave could have resulted from the change in acceleration level 
caused by the NPV system. However, slosh period would be 40 seconds or greater 
for the acceleration level at this range time which is higher than the observed wetting 
period of 15 seconds. Globules were observed to be present from photographic coverage. 

As previously mentioned, a second potential problem during a rapid depressurization 
is globule dynamics in the ullage. Near the end of the second blowdown, nearly 
spherical liquid globules ranging in size from one to six inches were observed flowing 
past the TV lens toward the vent with velocities of about 1. 5 ft/sec. During the 
third depressurization large, irregular shaped globules appeared and floated towards 
the TV camera. These liquid globules appeared to be several times larger than 
those observed in the second blowdown. However, the globules did not appear to 
constitute a substantial liquid loss. 

The sizes of the observed globules were considerably greater than a globule which 
could have been entrained by the drag of the vented vapor under prevailing fluid 
conditions. The larger observed sizes could possibly have been the result of 
ejection at the liquid-vapor interface by rapid surface boiling or break-up of a slosh 
wave. Coalescence of smaller globules in the ullage could also account for the 
observed larger sizes. Part of the wetting and drying of liquid-vapor sensor N052 
reported in Figure 4-4 through 4-6 may be attributed to liquid globules intermittently 
hitting this sensor. Future analyses of this boiling phenomena is required to examine 
possible formation mechanisms and subsequent motion of the liquid globules. 

Since the quality meter did not perform satisfactorily, it was not possible to determine 
the amount of liquid lost through the vent systems (Ref. 1-1 ). However, temperature 
measurements upstream of the CV and NPV orifices indicated that superheated vapor 
was vented during most of the rapid blowdowns. Some liquid was lost due to entrain- 
ment, but this appeared to be minimal. No liquid appeared to be lost due to liquid 
level rise due to boiling. 
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Boiling studies were conducted to develop analytical models to determine: (a) liquid 
level rise, (b) maximum depressurization rate, and (c) maximum quantity of vapor 
that can be vented before liquid boilover occurs. Since the magnitude of liquid level 
rise due to vapor entrainment could not be determined from the AS -203 experiment, 
no valid boiling correlations can be made for this flight. 


Liquid level rise caused by boiling constitutes a potential problem area for space 
vehicles utilizing cryogens. The level of a liquid cryogen boiling in a tank increases 
due to the presence of vapor bubbles entrained in the liquid. The amount of vapor 



Part of Third Depressurization 



entrainment is enhanced in a low-gravity environment when a decrease in buoyancy 
force results in a reduction in bubble rise velocity; longer bubble residence times in 
the liquid occur. The liquid level rise problem is particularly serious during pressure 
relief venting of a tank containing saturated liquid wherein large quantities of vapor 
can be generated from boiling caused by the pressure reduction. 


A model for prediction of liquid level rise due to boiling is desirable for design 
purposes to preclude liquid boilover during a venting operation. Further, it is 
desirable to predict the maximum venting rate that can be scheduled for a rapid 
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Figure 4-6. Response of Liquid-Vapor Sensor N052 During Final Part 
of Third Depressurization 
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blowdown of a cryogenic tank. To date, there is no quantitative data of level rise 
during venting in a low-gravity environment. A successful design of a cryogenic tank 
incorporating pressure relief venting depends on the availability of such information. 
However, before experiments are conducted, it is desirable to have analytical tools 
available to predict liquid level rise during a venting operation. The development of 
these tools is the purpose of this study. 

A purely analytical approach to the problem of liquid level rise will be employed here. 
The model employs the basic equations of motion and heat transfer. At the present 
time, there are few analytical investigations of liquid level rise (Ref. 4-1, 4-2, 4-3, 
4-4). This is because the unknowns involved are rather difficult to describe 
analytically. These unknowns include determining the amount of energy that goes 
into vapor production and quantity of vapor that remains entrained in the liquid during 
a venting operation. The first unknown involves describing bubble nucleation, growth, 
and departure at a solid surface and liquid- vapor interface, while the second entails 
describing the motion, interaction, and coalescence of individual bubbles in a liquid. 
Also, there are problems related to determining the relative importance of nucleation 
at a solid surface, liquid- vapor interface, and impurities in the liquid bulk. The 
above problems which previous investigators have neglected or simplified in their 
liquid level models are further examined in this study. 

This parametric model is concerned with indicating the possible magnitude of liquid 
level rise under certain simplifying assumptions. Equations are derived to determine 
the quantity of liquid mass evaporated allowing for saturation pressure change, liquid 
superheat, and wall heat transfer. From the evaporated mass, equations are 
developed to predict liquid level rise in terms of a boiling mass residency parameter, 
/3. This parameter describes the amount of vapor that remains entrained in the liquid 
and is related to the nucleation process, motion and interaction of bubbles. For large 
magnitudes of entrained vapor, significant liquid level rise is predicted. 

4.2 ANALYTICAL MODEL FOR BULK LIQUID 

Consider a cylindrical tank of height H that is initially filled with liquid to a height h Q . 
The entire liquid remains saturated and settled in the bottom of the tank during the 
course of a venting operation in which the saturation pressure decreases. The 
reduction in mass of saturated liquid by evaporation and the subsequent liquid rise 
due to vapor entrainment are to be determined for different levels of pressure 
reduction. Also, estimates of the effects of liquid superheat and wall heat transfer 
are determined. 

4. 2. 1 LEVEL RISE DUE TO PRESSURE REDUCTION . The quantity of liquid mass 
evaporated by boiling due to a saturation pressure reduction can be determined from 
aii energy balance on a saturated liquid given as 

A dm = mC s dT (4-1) 
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where heat transfer, liquid superheat, and variable properties have been neglected. 
Integrating equation 4-1 between initial and final states yields 


m. 


m. 


= exp 
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X 




(4-2) 



exp 



(4-3) 


This change in liquid height in equation 4-3 assumes no vapor entrainment. 

If a fraction /3 of vapor generated over the reduction in pressure remains entrained 
in a settled liquid, the increase in liquid height due to bubble displacement is given 


,Ah v = 


0(m 



(4-4) 


where 0 has been assumed to remain constant over the duration of a venting operation. 
This is an approximation due to the unsteady nature of the nucleation process, location 
of nucleation, and bubble motion in the liquid. Analyses in Section 4. 4 examines these 
interactions. For now, however, 0 will be assumed to represent some average 
quantity of vapor entrained in the liquid during the time interval of a vent cycle. 

From the summation of the Ah^due to vaporization and the Ah v due to vapor entrain- 
ment, change in saturation pressure and vapor entrainment is given by 



where an average slope of the saturated liquid-vapor pressure curve, dT/dP, has 
been employed, and AP = P - P Q . 

Calculations which have been performed utilizing equation 4-5 are presented in Figure 
4-7. Average liquid hydrogen properties were used over a pressure range of 10-50 
psia. 
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Figure 4-7. Relative Liquid Level Rise Versus Pressure 
Reduction 


It is noted in Figure 4-7 that potentially serious liquid level rise problems can occur 
for high pressure reductions, depending on the quantity of entrained vapor. For 
example, for a pressure reduction of 26 psi where 60 per cent of the vapor generated 
remains entrained, the liquid level rise would be twice the initial fill level. 


To determine the maximum allowable pressure reduction for venting a tank of height 
H initially filled to a level h Q , without liquid reaching the top of the tank, Equation 4-5 
is solved for AP max corresponding to h = H to yield 


AP 


max 



(4-6) 


Calculated results using Equation 4-6 with LH 2 properties are presented in Figure 4-8. 
This figure shows that the magnitude of pressure relief during a one cycle blowdown 
may be small depending on the fill level and quantity of entrained vapor. It is not 
unlikely that multiple vent cycles would have to be employed to reach a required 
pressure reduction if (3 were near one. 

It should be noted here that two conservative assumptions were made in this model. 
These are: 
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Figure 4-8. Maximum Pressure Drop Relationship For 
Fractional Fill Levels 


1 . That all the heat input into the tank is absorbed in vapor generation. 

2 . That the fraction of vapor specified by /3 which is generated in the liquid 
remains entrained. 

From the analysis of the S-IVB vent-downs during the AS- 203 flight (Section 4. 1) it 
is believed that both of these assumptions are overly conservative and place severe 
restrictions on venting a propellant tank as noted from the /?= 1 curves of Figures 
4-7 and 4-8. Both of these assumptions must be examined to predict their quantitative 
importance. 

4. 2. 2 EFFECTS OF LIQUID SUPERHEAT . Before boiling occurs in the bulk liquid 
or at the wall, the liquid temperature must rise above the saturation pressure by an 
amount proportional to the surface tension forces on the bubble surface. Thus the 
degree of superheat required is dependent on liquid properties, operating pressure, 
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and geometry of the nucleation site. To account for the energy which can be absorbed 
in liquid superheat, Equation 4-1 is modified as 

- m 'C g ATj + Xdm = mC g dT (4-7) 


where m' is the superheated mass. Dividing through by m and integrating Equation 
4-7 between initial and final states corresponding to a saturation temperature change 
yields for the final liquid mass 


m. 


— = exp 
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Y (AT g + MTj) 


(4-8) 


where 0 5 m'/m is assumed constant, AT g = Tf - T 0 , ATj = Tg U pe r h ea t - T 0 . Equation 
4-8 relates how liquid superheat reduces the amount of evaporation since part of the 
energy released due to a saturation pressure reduction is absorbed in superheating the 
liquid. Similar to the derivation of Equation 4-5, the liquid level rise due to pressure 
reduction with superheat effects included is given as 

h r C 9 

— =exp I y (AT s + ^ATi) 



T < AT s + ^ T i> 


(4-9) 


To determine the magnitude of superheat that a liquid can sustain before boiling, the 
following expression developed in Reference 4-5 for a bubble growing in a solid cavity 
will be used. Experimental values of superheat which are required for wall nucleation 
are less than the theory for cavities suggest. They are also considerably less than 
would be required for nucleation in the pure liquid where sites are not present. 
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Using saturated LH 2 properties corresponding to a pressure of one atmosphere and a 
cavity radius of 10“ 4 inch which is lypical for most surfaces, the amount of superheat 
is determined to be 0.116°R. This result is consistent with the values measured in 
Reference 4-4. Using this value of superheat in Equation 4-9 and assuming all the 
liquid is superheated (X = 1) results in a 12 per cent reduction in level rise for a 1°R 
reduction in saturation temperature and /3 = 0. 6. It should be noted that a 2. 5°R 
superheat was required to initiate boiling of LH 2 in Reference 4-6 which employed a 
different surface material and preparation than that of Reference 4-4. This indicates 
that surface effects can be important. If this higher value of superheat is attainable 
for LH 2 and nucleation at a solid surface is the main contributor to vapor production, 
then, superheat effects can become very significant as a factor in delaying and 
reducing LH 2 level rise. 
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4.2.3 INFLUENCE OF WALL HEAT TRANSFER . Heat transfer through the walls of 
a cryogenic tank containing saturated liquid is another mechanism for vapor generation. 
To account for wall heat transfer, the energy equation for a saturated liquid is given 

6Q W + Xdm = mC s dT (4-11) 

Dividing through by m, approximating 
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from the use of Equation 4-1 and integrating Equation 4-11 between initial and final 
states for constant heat transfer results in 
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Equation 4-13 shows how wall heat transfer results in increased vapor production. 
As derived previously, the liquid level rise due to pressure reduction with constant 
wall heat transfer is given as 
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Using the following values in Equation 4-14 which are representative of the third orbit, 
first vent-down of the S-IVB LH 2 tank during the AS-203 flight 


Q 

= 25 BTU/sec 

m o 

= 16,300 lb m 

A0 

= 180 sec 

AQ W 

=* 4500 BTU 


results in a 11 percent increase in level rise due to wall heat transfer for a change in 
saturation temperature of 1°R and /3 = 0. 6. For heating rates near the value used here 
and larger saturation temperature changes, the influence of wall heat transfer on level 
rise becomes negligible as compared to pressure reductions by venting. 



4-15 


4.2.4 CONSIDERATION OF BOTH SUPERHEAT AND WALL HEAT TRANSFER . 

From the analysis presented in the previous two sections, the influence on a saturated 
liquid of both liquid superheat and wall heat transfer can be accounted for by considera- 
tion of the energy balance 

+ flQ w - m'Cg AT g + Adm = mC g dT (4-15) 

Dividing through by m, using the approximation given in Equation 4-12, and integrating 
between initial and final states yields 
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Equation 4-16 indicates how liquid superheat and wall heat transfer oppose each other 
in terms of vapor production. The liquid level rise due to saturation temperature 
change with liquid superheat and wall heat transfer included is determined to be 
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Substituting the values used for superheat and wall heat transfer used in Sections 
4. 2. 1.2 and 4. 2.1.3 results in a 1 percent reduction in LH 2 level rise for a saturation 
temperature change of 1°R. This results from opposing effects due to the 12 percent 
reduction from superheat and 11 percent increase caused by wall heat transfer. There- 
fore, from the results determined here, the effects of superheat and wall heat transfer on 
LH 2 level rise are negligible compared to saturation pressure reductions. 

In this analyses on liquid level rise, the quantity of entrained vapor was left as an 
unknown parameter and has been assumed to remain constant with time during the 
period of a venting cycle. To remove these shortcomings, further study of the basic 
phenomena involved in a venting process is required. These phenomena include bubble 
nucleation, growth, rise, interaction, and coalescence, which are discussed in Section 
4. 4. Also, the relative importance of nucleation at a surface, liquid-vapor interface, 
and in the liquid bulk must be examined. 


After the above time-dependent bubble phenomena have been resolved, the unsteady 
ture of liquid level rise can be examined. From the determination of bubble size 
and spatial distributions as a function of time during a vent-down, the rate of liquid 
rise can be determined for various vent flow rates. Maximum vent rate and quantity 
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of vented vapor can then be determined before boilover occurs for various fill levels 
and gravity levels. 

4.3 BOUNDARY LAYER MODEL FOR LIQUID LEVEL RISE 

An analytical model is developed to predict the rise in tank liquid level due to bubbles 
entrained in the boundary layer during a venting process. This model compliments 
the previous development with the assumption that the major boiling phenomena occurs 
at the wall rather than the interface or within the bulk. The model presented results 
from a solution for the boundary layer thickness and volume as a function of time. A 
steady state boundary layer solution is used with an additional constraint of a mass 
balance on the boundary layer. The development and application of this model is 
presented in the following sections. 

4.3.1 DESCRIPTION OF BOUNDARY LAYER ANALYTICAL MODEL. Pressure 
relief venting of a cryogenic tank containing saturated liquid causes preferential 
boiling along the walls of the container and at the liquid-vapor interface. The bubbles 
generated by boiling along the walls will have a certain rise velocity depending on 
their size and the environmental acceleration level. Because of the rise velocities of 
bubbles and continuous depressurization of saturated liquid, vapor will continuously 
be leaving the liquid at the interface and forming along the tank walls. It is the purpose 
of the model developed here to determine the quantity of vapor entering and leaving 
the bulk liquid and the boundary layer so that the amount of entrained vapor and 
subsequent liquid level rise can be found. 

Because a buoyancy force acts on vapor bubbles generated at the tank wall and imparts 
a certain rise velocity to them, a two-phase boundary layer exists at the tank wall 
which will grow until it reaches equilibrium. Certain characteristics of the boundary 
layer are beyond the scope of this model and must be obtained elsewhere from 
specialized models, experimental determination, or engineering judgment. These 
include the boundary layer quality, relative velocity between liquid and vapor, profile 
shapes, and bubble sizes in the boundary layer. The sizes of the bubbles must be 
ascertained to predict the bubble velocities. The spacing of the bubbles in the 
boundary layer must be known or assumed in order to predict the boundary layer 
characteristics. 

Although it is not possible to calculate the spacing and the bubble diameters directly, 
some estimates can be made from qualitative considerations. The saturated liquid 
in the tank is evaporated at a certain rate depending on the depressurization rate. 

Most of the vaporization which occurs other than at the interface results in small 
bubbles created along the tank walls. Since the acceleration level will be low and the 
bubbles are small, these bubbles will have low velocities in the direction of the 
acceleration vector. The period of time that a bubble exists in the vicinity of another 
bubble provides a good opportunity for bubble coalescence or formation of vapor 
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bundles. As bubbles coalesce, their velocities increase, since the bubble velocity is 
proportional to the square root of the bubble diameter. The larger bubbles, moving 
at higher velocities than the smaller bubbles, will coalesce with smaller bubbles that 
they encounter. These considerations suggest that the bubbles in the boundary layer 
will probably be very large. The bubbles will be spaced a certain distance apart. 
Experimental evidence (Ref. 4-7 and movie) indicates that a bubble rising in a fluid 
in a gravity field behind another bubble will catch up and coalesce with the first 
bubble if the initial spacing of the bubbles is too small. Hence, closely spaced bubbles 
in the boundary layer will coalesce. 

Based on the above qualitative considerations, the following assumptions will be made 
concerning the bubble spacing and size distribution in the boundary layer: 

1. All bubbles at any given axial height along the boundary layer are equal in 
diameter. 

2. There is only one bubble at any given point extending from the tank wall to 
the edge of the two phase region. This is shown in Figure 4-9. 


VAPOR 

BUBBLES 



Figure 4-9. Bubble Boundary Layer Model 
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3. The bubbles are assumed to be spaced as a function of bubble diameter. 

Bubble spacings factors, S j? jZ and Sy z which are functions of tank height, are defined as 
the number of bubble diameters defining the space between bubble peripheries. 

From a local mass balance on the vapor in the boundary layer, the shape of the boundary 
layer can be determined. For mathematical convenience, it is assumed that a) there 
are no temperature gradients in the boundary layer, and b) the liquid velocity in the 
boundary layer is negligible. Also, for the purpose of this analysis, it is assumed that 
at equivalent vapor film exists instead of discrete bubbles. At any given point in the 
boundary layer, the boundary layer thickness which is also equal to the bubble diameter 
at that point will be proportional to the vapor film thickness. 

Referring to Figure 4-10, we can determine a relationship between bubble diameter and 
equivalent film thickness by equating the volumes occupied by bubbles of a given spacing 



Figure 4-10. Bubble Geometric Spacing Factors 


and a vapor film. This is given as 
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The following equation for bubble velocities which has been shown (Ref. 4-8) to be 
good for bubble Reynolds numbers greater than 5000 will be used to determine the 
local film velocity 

u z =°.73 [(p t -p v )gdz/ Pi ] 1/2 (4-19) 

The time dependent mass balance on a differential element of the vapor film includes 
an input term due to boundary layer vapor velocity and due to bulk evaporation, an 
output term at the upper boundary, and a growth or accumulation term, individual 
terms are indicated in Figure 4-11. 



Figure 4-11. Mass Balance for Differential Film Layer Section for Unsteady 
State Boundary Layer 
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Simplifying and neglecting higher order differentials, 
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Equation 4-21 is not readily amenable to solution; it is convenient to decouple the time 
dependent growth term and consider the shape of the boundary layer as a function of 
height only. The time-dependent growth term is small in comparison to the flow terms. 
The growth term can be treated within the analytical model as a restriction imposed on 
the solution in a later step by the mass balance of the boundary layer. Thus 
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The rate of saturated liquid evaporation in the boundary layer incremental distance dZ 
due to the change in saturation temperature of the bulk fluid is given as 


m 


e 


C p n D (D/4 - 6„ ) 
S H l T T Z 


dT 


where the boiling cross sectional area is defined as n D /4 - n D^, 6 Z * 
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To determine the amount of liquid mass evaporated in the boundary layer as compared 
with interface evaporation, we define a quantity c which is the fraction of evaporated 
mass that forms along the walls, that is 

rru 

c w 

e=-^— (4-24) 
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e 

With the evaporation occurring along the walls of the container and at the liquid vapor 
interface, one approach is to say that the relative importance of nucleation at the walls 
versus the liquid-vapor interface is given to a first approximation by a ratio of wall 
area S\y to the interfacial area 


e ~ 5 (4-25) 

S w + (n D t / 4) 

A more accurate approach is to use the bubble surface area output by program EVOLVE 
(Ref. 4-9), as the preferred ratio is interfacial areas rather than wall area. 

From the use of Equations 4-23 and 4-24, Equation 4-22 becomes 
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where the slope (dT/dP) of the saturated vapor-pressure cu~ve has been employed. 
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The variation of film thickness with position 
solution of Equations 4-18, 4-19 and 4-26. ! 
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Equation 4-33 can be integrated by making the following substitutions 
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This integral can be evaluated from a table of integrals to be 
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Expanding tanh in a series 
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higher order terms after the first five are less than one percent significant for 
boundary layers less than one foot in the S-IVB. 

Equation 4-35 reduces to 
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The volume occupied by the vapor film boundary layer can be found from 

h 6(h) 


V BL 


” D T / «z dZ=,rD T / 


. dZ i 

6 Z d6 z d6 Z 


o o 

Substituting Equation 4-36 into 4-37 and evaluating gives 
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From Equation 4-36 above, it is apparent that the implicit expression for 6 as a function 
of Z is not time dependent. Similarily, the boundary layer volume. Equation 4-37, is 
not time time dependent. It is observed that the only free constant in this equation is 
K3. By iterating with Equation 4-36 and a conservation of mass relation Equation 4-39, 
which utilizes variables 63 at the interface and VgL, one can obtain a growing boundary 
layer. The assumption here is that the boundary layer shape is characterized only by 
K 3 , and is in the form of Equation 4-36. The mass balance on the boundary layer of 
Figure 4-12 is 
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Figure 4-12. Mass Conservation in the Boundary Layer 
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Using Equations 4-27 and 4-36 with Z=h, this equation becomes 
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.from which the time rate of change of liquid level height can be found from 

dh = 1 dV BL 

dt%D T (D T /4-6 z ) z=h dt 


(4-42) 


To determine the change of liquid level height from Equation 4-42, the depressurization 
rate (dP/dt) due to tank venting must be determined. The depressurization rate can be 
found from a mass balance on the tank. The change in vapor mass in the tank due to 
liquid evaporation and vent outflow is given as 

dm = dm - m §t (4-43) 

g e v 

The vapor-mass in the tank can be related to the tank pressure by the equation of state 
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from which the change in vapor mass for negligible change in ullage volume is given as 
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Substituting Equation 4-44 and the change in mass due to liquid evaporation in Equation 
4-43 gives 
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which can be solved for the depressurization rate 
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From the substitution of Equation 4-45 into Equation 4-41 and then into Equation 4-42, 
the rate of change of liquid level rise can be determined. 

Another variable of interest is the mass remaining in the boundary layer as a function 
of time. From Equation 4-38 above and from Equation 4-2, the ratio of final to initial 
liquid mass is determined 

C s AT s 1 _ 
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This gives the quantity of saturated liquid mass evaporated due to saturation tempera- 
ture change; the fraction of mass evaporated that remains entrained in the boundary 
layer at any time is defined as 0 where 
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4.3.2 PARAMETRIC ANALYSIS . This model has been programmed for the 
CDC 6400 and the FORTRAN code, LIQLEV, is presented as Appendix B. 

A parametric analysis of the important variables defined in the previous section was 
undertaken. The results explore the range of variables anticipated for an upper stage 
experiencing a g-level of approximately 3 x 10 -4 g's. Bubble residency time is 
affected by this g-level. The program is, by necessity, restricted to a defined 
geometric configuration. The S-IVB hydrogen tank, 21. 67 ft in diameter, with an 
initial liquid height of 14.4 ft representative of AS-203 orbital conditions was 
selected. 


The fraction of evaporated mass feeding the boundary layer, c , was varied from .4 to 
. 8 at three discrete levels. A fourth level consisted of an input function, e = f((9), 
from EVOLVE with e starting at zero and reaching a steady state value of . 60 at 180 
seconds, see Figure 4-22. The boiling area is defined to include all vapor interfacial 
area, either bulk interface or bubble interface. Vent rate was varied from 1.1 to 3.3 
lbs/ sec. Bubble spacing factors of 1.0, 2.0, and 4.0 were used. In all cases the 
tank was initially saturated at 19. 5 psia and was vented down to 13.8 psia. This 
nominally required 280 seconds. 

As anticipated, for a given volume of vapor generated in the boundary layer, i.e. 

5490 cu ft at final tank conditions, only a small fraction remained in the boundary 
layer. This amount is lower as bulk interfacial boiling increases at lower values of 
e. This phenomena is illustrated for dimensionless liquid interface rise, Ah/h 0 in 
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Figure 4-13. The boundary layer has nearly reached steady-state conditions for the 
prescribed vent rate, thus these values reflect the maximum liquid level rise expected 
for these conditions, independent of venting duration. The film thickness is correspond- 
ingly larger with higher values of c. 

The effect of the venting rate, the primary variable in this process, is shown in Figure 
4-14 with the corresponding dP/d 8 for these vent rates. The lowest vent rate selected, 
1.1 lb/ sec resulted in a steady state boundary layer with a maximum increase in liquid 
level of less than one foot. The vent rate for AS-203 was 2.2 lb/sec and steady state 
conditions were being approached at 280 seconds. For higher vent rates, correspond- 
ingly higher liquid levels were defined. The film thickness was also determined for 
the various vent rates. The above comments on steady-state obtain; results are 
presented in Figure 4-15. 

The effect of bubble spacing is more difficult to picture. Since the mass evaporated is 
constant for a given depressurization rate, the larger bubbles which form have a 
shorter residency in the boundary layer and result in less overall liquid level rise. 
Unfortunately, no data was available from AS-203 to confirm this variable selection, 
thus a spacing of 1.0 was used in most of the parametric study. Effects of this 
parameter are presented in Figure 4-16. 

The results of Program EVOLVE show this parameter to be characteristically less 
than 1. 0. Increasing S v and S^ makes bubbles larger which should rise faster with 
lower residence time. This results in small boundary layer volume, i.e. less vapor 
hold-up. A glance at the analytical formulation shows that doubling the spacing has the 
same overall effect as doubling the g-level. One of course would calculate larger 
bubble diameters for the same boundary layer thickness for higher S v and S^. 

Two design variables which may be specified for the venting process are rate of pressure 
decay and g-level for the operation. In Figure 4-17, the resultant liquid level increase 
for a tank of AS-203 proportions is presented. At larger values of time, the boundary 
layer approaches steady state and ceases to grow. Indeed, the predicted liquid level 
rise in 280 seconds for AS-203 does not appear to cause a problem. The relationship 
between g-level and the dimensionless height variable is presented in Figure 4-18. It 
can be stated that the liquid level rise is not a strong function of g-level. 

4.4 BUBBLE DYNAMICS MODEL FOR LOW-G 

The phenomena of liquid level rise can only be approached with some degree of 
sophistication when the behavior of the bubble population can be modeled. Convair 
recognized the need for an analytical model to describe bubble behavior in low-g and 
developed a computer model solely under the 1968 company funded IRAD program 
(Ref. 4-9). This model considers the buoyant and drag forces acting on the bubble in 
the various Reynolds number regimes. The fluid temperature gradients also result 
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DIMENSIONLESS LIQUID LEVEL INCREASE. Ah/ h*. 



Figure 4-14. Dimensionless Liquid Level Increase With Time for Various 
Vent Rates 


4-28 






Figure 4-15. Film Thickness Variation With Time for Various Vent Rates 



Figure 4-16. Dimensionless Liquid Level Increase With Time for Various Bubble 
Spacings 
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Figure 4-17. Dimensionless Liquid Level Increase Dependence on Pressure Decay Rate 
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Figure 4-18. Dimensionless Liquid Level Increase Dependence on g-Level 
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in surface tension forces acting on the bubble. The resultant bubble motion from these 
forces in a finite medium is considered. Interaction between bubbles, agglomeration, 
and bubble wake effects are considered. 

4. 4. 1 ANALYTICAL MODEL . Heat transfer to the propellant is defined by the liquid 
level, its orientation, and energy transport mechanisms at the tank wall. The latter 
necessitates a specification of boiling parameters, e.g. number of sites, radius of 
each site, and frequency of production at each site. 

The propellant moments of inertia and the liquid location are determined by the spatial 
distribution of voids, heat transfer and void generation, surface orientation, and 
pressure transient of the tank contents. Additional requirements for void distribution 
description are generated by propellant venting and outflow problems, e.g. vapor 
entrainment. 

A computer program has been developed to give rigorous definition of the previously 
mentioned variables. The resulting computer program (EVOLVE) describes the 
temporal and spatial evolution of a bubble society. The CDC 6400 code, developed 
under company funds, is listed in Appendix C. The phenomenological considerations 
which are embodied in the program are 

1. Bubble generation with time and spatial dependent radii and frequencies. 

2. Kinematics and energetics of a single bubble moving in temperature and 
inertial acceleration fields in three dimensions. 

3. Time and spatial dependent temperature and inertial acceleration fields. 

4. The effect of wake behind a bubble on following bubbles. 

5. Bubble agglomeration • 

6. Slip or no-slip interaction with tank walls. 

7. Interaction of a single bubble with porous walls (screens). 

8. Vaporization (2 ways). 

a. Nucleate boiling as mentioned. 

b. "Bulk" boiling due to change in state of liquid (pressure decay) - this 
vapor generation is divided between the liquid-ullage interface and the 
existing bubble population in proportion to relative surface areas. 
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9. Liquid energy conservation, outflow, and level determination. 

10. Convective heat transfer to liquid phase which is dependent on liquid level. 

The program is designed to consider populations of up to 1,000 bubbles, three 
dimensional transport, bubble dependent surface orientation (not necessarily normal 
to inertial acceleration vector), and time dependent ullage pressure history. 

Analytical treatments of the above phenomena which are incorporated in the program 
are described in the following sections . 

4. 4. 1. 1 Single Bubble Dynamics . The motion of a bubble moving in a liquid with 
noncolinear gravitational and temperature fields is considered by summing the body 
and surface forces acting on the bubble, neglecting the bubble inertia. 

_B -ST _D 

F + F + F =0 (4-48) 

— * B 

F = buoyant force 
-ST 

F = surface tension force resulting from liquid temperature gradient 
- d 

F = liquid-bubble momentum exchange (drag) 

The equation of motion for a bubble, neglecting inertia (implies terminal velocity), is 
written as the difference form of the time integral of velocity 

6x=^ fi 6t (4-49) 

= vector change in position 
average velocity 
time increment 
The buoyant force is given (for nearly spherical bubbles) 
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Consideration of the effect of a surface tension gradient on bubble motion requires 
conceptual investigation of the principles of interfacial phenomena. The interface is a 
thin film which is elastic but not plastic (it may not flow), Reference 4-10, for no 
circulation within the bubble. The bubble is treated as an inertialess void. The normal 
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traction, therefore, establishes the surface topology and has no accelerative effect on 
the bubble. A confined liquid segment, on the other hand, would have an induced 
pressure gradient corresponding to the surface tension gradient and would cause the 
liquid to flow. The tangential tractions will accelerate the bubble since the interfacial 
surface cannot flow. The result for an axially symmetric surface is given by Reference 
4-11 as 


1ST 


= - JJa 1 * n T dS = acceleration due to surface effects 


(4-51) 


At = net surface traction tensor 
n^ = unit tangent vector to surface 
For an axially symmetric surface and surface tension gradient 
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The bubble radius for an axial symmetric bubble is given by the balance of normal surface 
traction forces across the bubble surface, this is constant since the surface is not growing. 
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which defines the bubble radius or topology. For an axial temperature field 
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From equation 4-54 
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Equation 4-53 becomes 
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From symmetry, only the axial component of force survives 
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To first order, equation 4-61 yields. 
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Equation 4-62 is for a nearly spherical gas volume with a single surface (bubble). The 
vector form of (4-62) is 
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The drag force is given by 
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The velocity vector direction is given by the vector sum of forces (equation 4-48), 

r^ST -*B \ 

\F + F } 


K i^ST -B 
- 1 + F 


(4-65) 


In order to define the drag coefficient, it is necessary to review the kinematics of 
bubble drag. Three regions of interest are considered 


I Spherical Particle 

II Nearly Spherical Particle 

III Deformable Body and the Transition Region 

Region I is commonly known as Stokes drag region for spheres; the Reynolds number 
interface for Regions I and II occurs at Re 2, Reference 4-12. Region II is for nearly 
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spherical particles and is the same functional relationship as Region I with different 
constants. The Reynolds number interface for Regions n and III is a function of 
fluid parameters and is defined by the intersection of the drag function in Region n 
with the functional relationship in Region III. Typical values of Re at the intersection 
are 80-400. The evaluation of the region separation and functional dependences in 
each region are based on extensive study and comparison of data contained in References 
4-8 and 4-12. Considerable scatter and conflict in data preclude a more definitive 
evaluation. In Regions I and n, the drag coefficient is a simple function of Reynolds No. 
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The velocity is defined by 
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(4-67) 

The value for "a" of 24 provides reasonable data correlation for Region I, with n = -1. 
For Region II, a = 19.7 and n = -. 725 are appropriate. 


Region III is associated with the onset and growth of surface deformation due to 
tangential shear stresses. The region embodies both the initial oblate deformation 
and the final "hemispherical cap" configuration. The drag coefficient is a function of 
the ratio of accelerative forces (F B + ? ^ T ) to normal surface tension traction; for 
only buoyant forces, this is the Eotvbs or Bond number. 
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The exponential relaxation of equation 4-69 accommodates the transition to the totally 
deformed hemispherical cap state. Values of Coo = 2. 64 and X = 0. 13 were found to give 
the best correlation with References 4-8 and 4-12. Using n = 0 and a = Cd in equation 
4-67, the velocity is prescribed for Region HI. 


In Region III, the acceleration due to surface tension gradient (temperature field) is 
reduced because the topological deformation alters the surface integral and traction in 
equation 4-51 and introduces anisotropic components. However, this force is only 
important in low-g buoyancy situations; therefore, the alteration for region dependence 
is neglected. 

The effect of finite medium on the velocity is approximately treated by considering the 
mass conservation equation of the liquid surrounding the bubble in the limited region. 
The increased relative velocity around the bubble increases the drag and results in a 
reduced velocity for the bubble in the confined region. 
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where Rx defines a finite radius region. Reference 4-8 shows that this result is 
approximately correct (it is obviously self consistent). The velocity, actually, falls 
off somewhat faster for bubbles in region III. For a medium containing many bubbles, 
the velocity is defined by 

vb a ~ (1 -or) (4-71) 

where is the local area fraction of bubbles. 

4. 4. 1.2 Bubble Energy Equation for a Single Bubble. Thermodynamic evolution of a 
bubble is described by a differential form of the first law energy equation. The gaseous 
phase inside the bubble is considered to be saturated at the pressure corresponding to 
the external pressure plus the surface traction. Energy transport (heat and/or mass 
transfer) between the bubble and liquid phase is considered. 

0 = m 2 u 2 - u x + 6m c h T + fim^ h T - Sm^. h T + 6 (Pv) (4-72) 

for time 1 to time 2, where, 

hg ~ 6m c < 0, 6mQ < 0, 6my > 0 

h fg< ^6m c > 0, 6m Q > 0 , 61 *^ < 0 



Continuity of bubble mass yields 

m 2 “ mi = 6m v - 6mQ - 6 m c (4-73) 

It is assumed that the bubble remains at saturated gas conditions. 

4. 4. 1.3 Wake Effects. In the study of bubble populations, the velocity field behind a 
bubble (wake) must be considered in the velocity prescription of bubbles traveling in 
succession. As an approximate approach, a superposition of wake velocities which 
interfere with a particular bubble is used. This is quite reasonable for moderately 
dense populations because the wake relaxes as (x/d)“2/3 for axisymmetrie bubbles. 

The velocity of bubble "i" is given by 


_i _i 
V B V BA 



_ji 

< v > 
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where 



= wake velocity which interacts with bubble "i" from bubble "j M 


The velocity field in the wake of axisymmetric bodies is expressed by a vector 
representation of the wake velocity 




(4-75) 


where 


R.. 

R 



_i 

x 


2 relative vector coordinate of bubble (j) with respect to bubble (i) 


x = position vector of bubble 

f^ 1 2 functional dependence of axial velocity in wake on the relative distance | 

f^ 1 = functional dependence of radial velocity in wake on the relative distance | 
u J 1 

The terms axial and radial are defined by the velocity vector of the lead bubble (j) . 


The velocity field behind a single body with axial symmetry has been investigated, 
Reference 4-13, for turbulent wakes. The consideration of only turbulent wakes is 
reasonable since laminar wakes occur only for very small bubbles or low velocities 
where wakes are not important; also, the laminar wake is similar to a turbulent 
wake in its attentuation, (x/ d) - *, References 4-10 and 4-14. 


The functions f* 1 and f^ 1 are 
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= projection of relative position vector on 
velocity direction of lead bubble 
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= normalized projection of relative position 
vector on the direction normal to velocity 
of the lead bubble 
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(4-80) 


The constant "C" is determined by experimental correlation. A value of C = 0.288 was 
obtained using data in Reference 4-15. 


4 . 4 . 1 . 4 Agglomeration and Tank Wall Interaction. Inter-bubble agglomeration 
(coalescence) and bubble, liquid-ullage surface coalescence is represented by two 
equations 



(4-81) 


6 = impact parameter for bubble collisions 

IMP 




B IMP 


(4-82) 


6 


s 

IMP 


= impact parameter 


for bubble-surface collision 


R. s vector from bubble center normal to liquid-ullage surface 

IS 

Equations 4-81 and 4-82 define conditions for agglomeration to occur; for inter-bubble 
collision, the resulting bubble is positioned at the center of mass of the two original 
bubbles. Observation of coalescence indicates that 

6 IMP = 6 IMP " 0 

Bubble collisions with the confining walls of the tank result in one of two possible 
situations: free slip, no slip. 


Free Slip ~ v B * n | = vj* | = 0 

WALL WALL 

Nosn P ~(r B | ALL = o 

In the first situation, the bubble hits the wall and travels along a geodesic of the 
surface; for the second situation, the bubble strikes the wall and remains at the 
point of impact. 

Another consideration is that the wall may be porous and the bubble could possibly 
escape; this is determined by the relation of the normal force of bubble at the container 
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wall to the surface tension retardation force provided by the wall pores. If the normal 
force is greater than the combined surface tension forces of all involved pores, then 
the bubble "escapes" and islo3t forever; If the normal force is less, the bubble is 
retained. 


4. 4. 1.5 Vaporization . There are two mechanisms for vapor generation: nucleate 
boiling , and 'hulk" boiling. For nucleate boiling, the site, the time dependent initial 
radius, and the time dependent frequency of production are input to the program. The 
mass of vapor produced is subtracted from the liquid phase and a new bubble is born. 


Boiling which is the result of change in thermodynamic state of the liquid (bulk), e. g. , 
pressure decay and convective heat transfer, is added to the existing voids, including 
the ullage space, in proportion to liquid-gas interfacial areas. 


i C *< 4 ” R b > 6m LV 
6™ v = 

[ A s + 4 C A C DEG £ ( n Rg ) J 

where 


(4-83) 


6m = liquid phase mass change due to vaporization 
LV 

A g = liquid-ullage interface area 

6m^. = mass addition to l bubble 
= arbitrary weighting factor 

Cdeg 5 degeneracy factor for considering only a sector 

The parameter C a permits alteration in the partitioning of vapor production between 
bubbles and the ullage space. The degeneracy factor is an antifact which represents 
an axisymmetric container and void distribution as a degenerate sector of the cross 
section. In other words, only the evolution of voids in one degenerate sector need be 
considered if all forces obey the same symmetry rules as the container and the voids 
do not out grow this sector. The program uses Cj)EG to keep track of gas, liquid 
phase and volume changes to insure the satisfaction of conversation requirements. 

Cnrp = — ~ -rr-— = INTEGER QUANTITY (4-84) 

DEG SECTOR ANGLE (RADIANS) 

Observations of boiling due to pressure reduction indicate that existing voids increase 
appreciably in size and that some new nucleation sites appear on the walls; however, 
there is no evidence that new bubbles are created internal to the liquid phase providing 
that no incipients are present, e.g. gases in solution, solid particles, and other 
contaminants. The latter could be input as additional nucleation sites. 
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4. 4. 1. 6 Liquid Energy Conservation and Level Determination, The liquid phase energy 
conservation is defined by a differential first law energy equation. The pressure history 
is a given function of time (input). 

6 = m i 2 u^ - u^ + h* 6m Q + h 6m LV (4-85) 

where 

6 Qi = convective or conductive heat transfer to liquid (input per unit liquid height) 
6m 0 = fim F0 - 6 m c - 6 m Q 
Mass conservation yields, 

m ^2 " - 6 m 0 + 6 m LV (4-86) 

Because of the arbitrary surface angle (function of time) and the various axisymmetric 
tank configurations, the liquid level is calculated every time step by an iterative method. 
The convective or conductive heat transfer to the liquid is input per unit liquid height; 
therefore the program explicitly calculates the feedback effect of changing heat input 
with liquid level. 

4.4.2 DEMONSTRATION PROBLEM FOR S-IVB LIQUID LEVEL RISE. As an illustra- 
tion of the program EVOLVE, a problem was chosen which simulates the S-IVB liquid 
hydrogen tank in the settled condition at ~ 3 x 10” 4 g. The problem simulates depres- 
surization at 14,342 seconds in the AS-203 experiment. The tank was despresurized at 
the rate of 1. 9 psi/min from 19. 5 psia. The initial propellant mass was 16,300 lb m . 
Thirteen sites were distributed between four radial planes and the bottom center of the 
tank; each site producing a one-inch diameter bubble per second. 

Figure 4-19 illustrates the effects of agglomeration and wakes on the number of bubbles 
existing at any time; at the end of 30 seconds, there are nearly twice as many bubbles 
with wake interactions as there are without wakes. The reason is that the bubbles are 
drawn away from the site by the additional velocity increment inhibiting agglomeration; 
in some cases, however, the opposite effect could occur. The effect of agglomeration 
is shown by the difference in the number produced and the number present (the ratio 
390:30 for a case without wakes). 

Figures 4-20 and 4-21 depict a particular radial plane with three sites plus the site at 
the origin after an elapsed time of 30 seconds, for cases of wake and no wake interactions, 
respectively. 

With the problem solution known to 30 seconds for the 180 second blow down, it was 
apparent that a symmetrical solution was developing which could be approximated by 
considering only a corner bubble site with thirteen sites spaced around the tank 
perimeter. The solution to this problem with wakes, which are considered important, 
was continued for a set-up with a degeneration factor of 13. This approach neglects 
the interactions at the five feet generation site location on the same radii, however, 
this effect is of minor significance. It is, nonetheless, important to represent 13 
sites versus 1 site because of the important effects of void areas which affect 
bubble velocity and liquid level rise, which in turn causes longer travel before the 
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Figure 4-19. 



Bubble Population Produced Compared to Number Existing 
After Agglomeration for Wake and No Wake Cases as a Time- 
Dependent Function 
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Figure 4-20. Bubble Distribution After 30 Seconds in a Typical Radial Plane of 
S-IVB For Wake Interaction Case 
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Figure 4-21. Bubble Distribution After 30 Seconds in a Typical Radial Plane of 
S-IVB for No Wake Interaction Case 
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bubble breaks the surface. It is quite interesting that agglomeration for the enti re 
period limits the bubble population to only 143 bubbles, while a total of 1560 were 
generated. The bubble population growth rate is depicted in Figure 4-22; it is noted 
agglomeration results in only 117 bubbles (9 per site) at problem end time of 122.4 
seconds. The calculation interval for this study was 0.2 second with a one-inch 
bubble generated on the tank bottom each second. 
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Figure 4-22. Bubble Population and Areas for S-IVB Simulation 


For this solution of the AS-203 blowdown, all liquid/ vapor surfaces, i. e. interface 
and bubbles were weighted equal for their vaporization potential. A parameter permits 
weighting the above two surfaces differently. It was indicated earlier that a preferred 
ratio of bubble generation sites may be based on bubble surface area rather than wall 
area. Such a parameter can be generated from the bubble surface area curve 
presented in Figure 4-22. The shape of this curve is influenced by agglomeration as 
well as void fraction and bubble velocity. It is shown that in the 120 second period, 
for the parameters assigned, no bubbles broke the surface. It is estimated some 
cyclic steady state condition might develop after a period of several minutes. 
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These results can be related to the liquid level rise problem by means of the volume 
of bubbles entrapped at any time. The volume history entrapped for the thirteen sites 
assumed for this problem is presented in Figure 4-23. The liquid level rise for the 



Figure 4-23. Liquid Level Rise and Entrained Volume for S-IVB 
Simulation 


S-IVB - AS-203 vehicle is also presented. It appears this may approach a worse case 
analysis, since an assumption of a larger number of generation sites would result in 
less bubble interference due to void fraction ultimately resulting in bubbles which would 
rise faster and depart the liquid surface at an earlier time. The computer program 
EVOLVE computes bubble velocity with Equation 4-67; for Re > 5000, the increase in 
velocity is proportional to the square root of the radius; however, a decrease in 
velocity occurs due to local area fraction proportional to bubble radius squared, 
Equation 4-73. To illustrate this further, the diameter and velocity of the uppermost 
bubble is presented versus time in Figure 4-24. Recall that with bubbles of this size, 
a total of thirteen at the same tank height, the void fraction effect is a strong factor 
in decreasing bubble velocity. 

It is illustrative to consider the population of bubbles at any given time in the tank 
generated by a single representative site. The print cycle period of ten seconds 
disclosed a range of 2 to 11 bubbles present per generation site. It is relatively 
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Figure 4-24. Lead Bubble Characteristics for S-IVB 
Simulation 

simple to trace the upward trajectory of the first bubble; however, later bubbles 
move faster within its wake and agglomerate making bubble identification difficult. 
The overview of this population is presented in Figure 4-25 with the approach to 
the rising liquid surface indicated. It is estimated the upper bubble will break the 
surface prior to 180 seconds resulting in a liquid level collapse of several feet. 
Formulation of the problem with generation rate, number of sites, and degeneracy 
(scaling) factor of thirteen resulted in an impossible geometric configuration within 
confines of the S-IVB which limits 13 bubbles around the perimeter to approximately 
2.09 feet radius. Agglomeration in a lateral direction, not accounted for in a 
degenerate solution, would have modified the results if 13 physical sites had been 
used, hi summary, the above problem gives representative results which are 
conservative while demonstrating the potential of the computer model. Parametric 
tradeoffs would include increasing generation sites and rates to increase total bubble 
area and bubble velocities while reducing individual bubble sizes. A more random 
generation pattern would also result in higher velocities by resulting in an overall 
reduced void fraction. 
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Figure 4-25. Important Effects of Bubble Agglomeration and Void Fraction in Finite Media Define Bubble Trajectories 



4.5 LIQUID LEVEL RISE CONCLUSIONS AND RECOMMENDATIONS 


The analtyical model LIQLEV developed for liquid level rise confirms the observed 
absence of level rise on AS-203. This model adequately determines the anticipated 
phenomena for parametric conditions other than AS-203. The model represents the 
growing boundary layer fed by evaporation of the saturated bulk and gives the steady 
state boundary layer conditions. A rapid vent down with less than approximately 20 
percent ullage for the rates discussed here could result in liquid level rise to the 
vent. The analytical model should be used to define the particular case in question. 
This program can be used in conjunction with Program EVOLVE for the analysis 
of bubble phenomena resulting in liquid level rise. The gross analytical model, 
LIQLEV, is much more economical to use than Program EVOLVE, typical cases 
requiring less than one minute of CDC 6400 time. The analytical model represents 
a considerable improvement over earlier models given in the literature (Ref. 4-1 
and 4-4). In particular, it considers the residence time of the bubble in the boundary 
layer as well as distributing the evaporative surface between the bulk liquid/ ullage 
interface and the bubble interfacial area. The parametric studies conducted with 
this model are representative of the design information which can be acquired from 
the model. 

The bubble dynamics program, EVOLVE, developed at Convair under company-funded 
research, supplements the above liquid level program. EVOLVE meticulously 
computes the dynamics of the bubbles in a low-g field considering wake effects and 
agglomerations. These latter two effects have been shown to be important in defining 
the bubble population, residence time, and surface area/ volume ratio for the 
entrained gas. Recent program verification with one-g test data in Freon 11 lends 
confidence to the model. A pressing need exists for verification of this model with 
low gravity bubble dynamic data. The model will serve as a valuable tool for analysis 
of robtial propellant behavior including experiments. All potentials of Program 
EVOLVE have not been fully explored. Bubble phenomena in long term low-g storage 
is a major factor in predicting heat transfer and pressure rise evaluation. A 
continuing program in this area of low-g bubble phenomena is required. 

A phenomena which is not understood or predicted by either of the above programs is 
the interface break-up into globules in low-g. Forces which are negligible in one-g 
have been observed in AS-203 films to cause globules to be thrown into the ullage 
and possibly out through the vent systems. A study to define size and velocity of the 
globules as a function of forces and gravity level is required. The effects of the 
unbalanced thrusting from venting liquid may exceed the significance of the mass 
loss. An evaluation of interface forces such as sloshing and inertia forces related 
to emerging bubbles should be examined. A model should be formulated which would 
predict globule size and velocity as a function of interface disturbances or forces. It 
is recommended further analysis be conducted in this area to define this gravity- 
sensitive phenomena. 
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PROPELLANT CONTROL AND SETT LING ANALYSIS 


Propellant control and settling analysis studies are based on an analysis of propellant 
sloshing dynamics. The sloshing dynamics are represented by an equivalent mechan- 
ical model obtained from the solution of the hydrodynamic equations (Reference 5-1). 
An ideal liquid is assumed, i.e. , nonviscous, incompressible and irrotational flow. 
This model is combined with other dynamic elements of the vehicle to study the over- 
all system propellant dynamic behavior. Effects such as stratification or thermally 
driven motions are not included in this portion of the study. The fundamental 
difficulty with this model is its assumption of perturbational fluid motion, while 
the low-g slosh condition is characterized by large displacements of the free liquid 
surface. The analysis has been divided in two areas; slosh model correlation with 
drop tower test results and simulation of the AS-203 propellant sloshing/ vehicle 
dynamics. 

5. 1 PROPELLANT SLOSHING MATHEMATICAL MODEL 

The mathematical model used in this analysis is based on the pendulum analogy to 
duplicate the forces and moments produced by the oscillating propellants. The total 
propellant mass is divided into two separate masses each treated individually. One 
mass, the reduced mass, is treated as being rigid; the remaining propellant mass, 
termed the slosh or pendulum mass, is free to oscillate. The reduced mass, its 
moment of inertia and center of gravity are used to calculate a new effective vehicle 
moment of inertia and center of gravity, (Figure 5-1). These values are then used 
in all subsequent vehicle slosh analyses. Forces and moments produced by propel- 
lant sloshing are coupled to the vehicle through the pendulum hinge point. The length 
of the pendulum is governed by the natural frequency of the oscillating propellants. 

All sloshing parameters are dependent on the propellant tank geometry and are 
functions of the undisturbed liquid level within the tank. 

In reality an infinite number of slosh modes exists however in practice only one mode 
is usually considered. All energy pertaining to the propellant liquid is assumed 
contained in the first mode slosh mass. Splashing, geysering, or breakaway liquid 
is not accounted for. In addition low-g capillary effects are not included directly. 

The usual procedure, for low Bond number conditions where capillary effects are 
significant, is to superimpose the liquid level rise as approximated by the height of 
the meniscus on the results obtained from the mechanical propellant slosh analogy. 
This superposition is demonstrated in a later section. 
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Mrp Total liquid propellant mass. 

Xq Station number of the center-of-gravity of total propellant mass (Mj). 

I R Moment of inertia of total propellant mass (M T ) treated as a rigid 
settled mass about its center of gravity (Xo). 

Mp Sloshing propellant mass used as the pendulum mass in the pendulum 
analogy for first mode sloshing. 

Mp 2 Sloshing propellant mass used as the pendulum mass in the pendulum 
analogy for second mode sloshing. 

Mq Reduced propellant mass, the total propellant mass less the first mode 
slosh mass. Mq = Mq- - Mp. This mass is added to the vehicle dry 
weight (vehicle total weight less liquid propellant in the tank) and is 
treated as a rigid point mass at station X R . 

X R Station number of the center of gravity of reduced propellant mass (Mq). 

Iqr Moment of inertia of reduced propellant mass (Mo) about its center of 

gravity (X R ). 

X R p Station number of the pendulum hinge point for first mode slosh. 

Lp Pendulum length used in the pendulum analogy for first mode sloshing. 


Figure 5-1. Propellant Sloshing Parameters for Pendulum Slosh Analogy 
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5.1.1 S-IVB PROPELLANT SLOSHING PARAMETERS . Propellant sloshing parameters 
have been determined for the liquid oxygen and hydrogen tanks. Figures 5-2 and 5-3 
illustrate these parameterss as a function of the propellant interface level. These param- 
eters were obtained from a digital computer program. Ref. 5-2. All mass and moment 
of inertia parameters are based on an assumed propellant density. To reflect any 
change in density multiply these data by the ratio of the density change. Note that in 
both cases the second mode sloshing mass (Mp£) is insignificant relative to that of the 
first mode. In addition to the slosh analogy parameters, the mass, center of gravity, 
and moment of inertia of the propellant treated as being rigid are also presented. 


5.1.2 DROP TOWER MODEL PROPELLANT SLOSHING PARAMETERS . Propellant 
sloshing parameters for the six inch scale model fuel tank are presented in Figure 
5-4. The propellant interface level is given in inches relative to the tank bottom. 

Note that above approximately 4 inches bottom effects are negligible as the slosh mass 
and pendulum length remain essentially constant until reaching the dome section of 

the tank forward end. 

5.2 BAFFLE DAMPING MATHEMATICAL MODEL 

The analytical slosh analysis treats the slosh baffle purely as an energy dissipation 
device. The propellant motion is not physically constrained. Instead kinetic energy 
is removed in accordance with the theoretical energy dissipation provided by the 
baffle. Under this condition the propellant slosh wave remains continuous and is 
limited in amplitude only as a function of the slosh energy. 

The baffle damping expression for a ring baffle in an arbitrary tank with rotational 
symmetry is obtained from Reference 5-2. The theory is basically an extension of 
Miles (Reference 5-3) baffle damping equation to include tank bottom effects for any 
tank with rotational symmetry. The baffle drag coefficient is based on a curve fit 
to test results obtained from Reference 5-4. Energy losses due to damping are 
obtained as an instantaneous function of time. This is especially important for the 
low "g" slosh condition which is characterized by oscillations with long time periods. 
During coast phase flight the function of the baffle is to damp the liquid oscillations 
within a very few cycles. Under these conditions where more than 50 percent of the 
total energy dissipated can be dissipated over the first half cycle, the time averaging 
process can lead to serious errors in predicting liquid behavior. 

The relationship between propellant slosh and energy dissipation is given by: 


dE 

dt 


= -C, 


l» 


\ °*MAX 


(5-1) 


where re P resen t s the instantaneous maximum pendulum displacement as 

defined by the instantaneous slosh energy and Cq is the baffle energy dissipation 
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Figure 5-2c. S-IVB Fuel Tank Slosh Parameters as a Function of 
Propellant Interface Level 
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Figure 5-3a. S-IVB Oxidizer Tank Slosh Parameters as a Function (f 
Propellant Interface Level 
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Figure 5-3b. S-IVB Oxidizer Tank Slosh Parameters as a Function 
of Propellant Interface Level 



PROPELLANT INTERFACE LEVEL - STATION NUMBER (M.S.F.C.) 

Figure 5-3c. S-IVB Oxidizer Tank Slosh Parameters as a Function 
of Propellant Interface Level 
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constant. This energy dissipation constant is incorporated into the mechanical slosh 
analogy to simulate effective baffle damping. The proportionality constant for a 
given tank geometry is dependent on the baffle dimensions, location within the tank, 
and location relative to the undisturbed liquid level. 

The derivation of the energy dissipation constant is based on the solution of the 
hydrodynamic equations. This constant is determined by integrating the vertical 
component of fluid velocity over the wetted baffle area. A fundamental assumption 
is that of perturbational fluid displacements. Based on this theoretical solution the 
baffle becomes ineffective when the quiescent liquid level is below that of the baffle. 

A similar condition exists for large amplitude motion even when the nominal liquid 
level is above the baffle. Under this condition the wetted portion of the baffle is a 
function of the slosh amplitude. Theoretical damping expressions when the baffle is 
allowed to become uncovered have been developed in References 5-5 and 5-6. These 
expressions unfortunately are based on averaging techniques making use of an 
effective baffle area over a complete slosh cycle. 

These conditions do not exist during Centaur flight except perhaps during the first 
slosh cycle following main engine shutdown. However during the S-IVB AS-203 
orbital experiment and the drop tower slosh tests the baffle is uncovered. Baffle 
damping for simulation of these cases assumed an effective baffle area based on 
expected slosh amplitudes. This assumption in effect results in an average energy 
dissipation. The baffle damping coefficient for both the full scale and drop tower 
model tank as a function of the quiescent liquid level is given in Figures 5-5 and 5-6 
respectively. 

5.3 DROP TOWER PROPELLANT SLOSHING ANALYSIS 

The drop tower slosh data is valuable in that it enables a direct evaluation of the 
propellant slosh theoretical solution as applied to the low g condition. Analytical 
results of drop tower sloshing are based on simulation. Analytical data is compared 
with test data obtained from Reference 5-7 wherever possible. Unfortunately the 
actual test data available did not cover the complete range of test conditions. Under 
these circumstances questions regarding data reduction techniques and the validity 
of some of the reduced data have been unanswered with a corresponding reduction in 
confidence level. In any case the drop tower provides more complete quantitative 
propellant sloshing data than can be obtained from flight testing. Furthermore test 
conditions can be controlled to practically eliminate unknown disturbances often 
present in flight results. Every effort is made to correlate test data with theoretical 
results to point out the slosh model inaccuracies in this application. 

A digital computer program was set up to simulate the drop tower propellant sloshing 
dynamics. The simulation uses the pendulum analogy to duplicate the sloshing 
dynamics, provision is included for three slosh modes. The pendulum slosh analogy 
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Figure 5-5. Baffle Damping Energy Dissipation Figure 5-6. Baffle Damping Energy Dissipation Constant 

Constant as a Function of Quiescent Liquid as a Function of Quiescent Liquid Level For S-IVB 

Level for S-IVB - AS-203 Vehicle Drop Tower Model 



parameters and the basic mathematical model are shown in Figure 5-7. Propellant 
inertia and pendulum hinge point parameters are not required since the model tank 
is assumed to have only one degree of freedom in the axial direction. The analytical 
procedure was the same as that employed in the actual model test. Sloshing was 
induced in a one "g" environment, then the acceleration reduced to a low level as 
defined by the Bond number. Data was obtained on propellant slosh wave amplitude, 
velocity and acceleration. This data enabled determination of the maximum liquid 
slosh amplitude, amplification factor, effective baffle damping coefficient, and 
slosh period as a function of Bond number and Froude number. 



Lpj Pendulum length used in the 
pendulum analogy for the i*h 
mode sloshing. 

Mpj Sloshing propellant mass used 
as the propellant mass in the 
pendulum analogy for i^ 1 mode 
sloshing. 

Q' i Pendulum displacement angle 
for i*h mode sloshing. 


Figure 5-7. Drop Tower Propellant Slosh Analogy Parameters 

5.3.1 MAXIMUM LIQUID AMPLITUDE WITH CLEAN TANK CONFIGURATION 
(NO BAFFLES) 

5.3. 1.1 Analytical Results. A series of computer runs have been made simulating 
the drop tower slosh testing. Propellant sloshing is initiated under a one g 
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condition, then the g-level is suddenly reduced to a low value as described by the 
Bond number. The maximum liquid amplitude plotted in dimensionless form is 
presented in Figure 5-8 as a function of the square root of the Froude number. The 
Froude number is calculated at initiation of the low "g" condition and is therefore a 
measure of the initial slosh kinetic energy. The upper curve represents the clean 
tank configuration, ie, no baffle damping. The lower curve, with points denoted by 
solid symbols, illustrates conditions including baffle damping. The data presented 
here does not include the liquid level rise produced by low g capillary effects. 

Figure 5-9 illustrates the maximum liquid amplitude as a function of time for a 
typical simulation run. Since for analytical purposes the slosh wave is antisymmetric, 
this represents the amplitude of either the left or right side, the only difference being 
the sign of the amplitude. Figure 5-10 shows the propellant mode shapes for a large 
amplitude first mode slosh wave and the same wave superimposed on a low-g meniscus , 
as approximated by a sphere. Note that the new wave profile now appears distorted 
although in reality, it remains a first mode slosh wave. 

5. 3. 1.2 Drop Tower Test Results. The maximum drop tower liquid amplitude data (Ref. 
5-7) is presented in Figure 5-11 for comparison with analytical results shown in Figure 
5-8, A comparison of the data for the clean tank configuration shows that for Froude 
numbers exceeding approximately 1.0, the predicted amplitude (Figure 5-8) exceeds that 
obtained from tests (Figure 5-11), conversely for Froude numbers less than 1. 0 the ampli- 
tude is less than observed in tests. The broken line represents a smooth curve approxi- 
mation to the maximum amplitude curve with low g capillary effects as approximated by the 
height of the meniscus subtracted out. The height of the meniscus as a function of Bond 
number was analytically determined based on the theory of Reference 5-8. 

Figure 5-12 shows a typical amplitude versus time curve for both the left and right 
sides measured at the tank wall as obtained from test data. Basic slosh modes are 
evident during both the one g and subsequent low g periods. However because 
of the data scatter, which appears as "noise," filtering or smoothing is necessary to 
make maximum effective use of the data in correlating with analytical results. The 
slosh amplitude shows a relatively large steady state wave height after the drop 
during the low-g condition. This large bias appears to be characteristic of all 
available test data. The left side amplitude for this case has a bias of 1. 3 inches 
at the poiit of maximum wave height and the right side 0. 8 inches. This compares 
with a predicted meniscus height based on low g capillary effects of approximately 
0.29 inches. Assuming that the theoretical meniscus (0.29 inches ) does agree with 
unexcited test results in the transition to low-g, still a significantly greater rise (1.3 
inches total) in the quiescent liquid level was observed for a test drop in the excited 
state than can be predicted analytically by conventional slosh theory. Because of the 
short test time duration, the new quiescent level cannot be examined for a sufficient 
period of time; however the observed quiescent level rise does appear to be decreasing 
with increasing time, indicative of a transient response. 
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MAXIMUM LIQUID AMPLITUDE (At^/R) 



SQUARE ROOT OF FROUDE NUMBER (Fr 1 / 2 ) 


Figure 5-8. Maximum Liquid Slosh Amplitude Determined From Analytical 
Model for Several Bond Numbers 
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Figure 5-9. Liquid Amplitude History of a Typical Simulation Run 

Table 5-1 presents a summary of the liquid level rise during the low g condition 
along with the analytically determined meniscus height for three tests on which data 
is available. 


Table 5-1. Quiescent Liquid Level Rise Obtained From Drop 
Tower Test Results 


Test No. 

Bond No. 

Quiescent Liq 

uid Level Rise (Inches) 

Left S ide 

Right Side 

Analytically Determined 
Meniscus Height 

2F-41 

76 

1.3 

0.80 

0.29 

2F-42 

76 


0.23 

0.29 

2F-49 

95 

0. 70 

0.25 

0.22 


Inspection of the drop tower film data shows that as the slosh wave passes through 
the equilibrium point it is highly curved in the shape of a meniscus. Figure 5-13 
illustrates this for test 2F-14 at the second zero crossing. This observed "meniscus" 
height is the same as that shown on Figure 5-12 at 2.5 seconds. The curvature however 
appears in the plane of the slosh motion only and not in both planes as would a meniscus 
produced by low g capillary effects. In addition, liquid inertia effects due to the 
sudden reduction in axial acceleration should be manifested on both the pitch and yaw 
planes. The symmetry of the liquid interface profile suggests that the observed 
waveform does not represent a low-g surface perturbation. Unfortunately an 
insufficient number of data points was available and no attempt was made to correlate 
the quiescent liquid level rise with specific test conditions over and above that 
attributable to low-g capillary effects. 
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Figure 5-10. Propellant Slosh Liquid-Vapor Interface Profiles 



MAXIMUM LIQUID AMPLITUDE ( £./R) 


10 . 0 | 


1 1 1 — 

NOTE : SOLID SYMBOLS INDICATE 
BAFFLE CONFIGURATION. OPEN 
SYMBOLS INDICATE CLEAN TANK 


6.0 


4.0 


o Bo ** 12 

CONFIGURATION. _ 

A Bo = 24 

| | | 

□ Bo * 49 

■ AMPLITUDE DATA 

v Bo * 60 

CORRELATION FROM — 

O Bo » 76 

REF 5-7 

O Bo » 95 

i i 

i 

AMPLITUDE DATA 


WITH THEORETICAL 
MENISCUS EFFECTS, 



0.4 0.6 1.0 2.0 

SQUARE ROOT OF FROUDE NUMBER (Frl/2) 


4.0 5.0 


Figure 5-11. Drop Tower Test Data For Maximum Liquid Slosh Amplitude 
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Figure 5-13. Liquid Vapor Profile Test 2F-41 at 2.5 Seconds 

Removing this total bias from the available data and recomputing the maximum slosh 
liquid amplitude gives the four points plotted on Figure 5-11 below the broken line. 
Both the left and right side data points are given assuming the same Froude number. 
This modification brings the analytical data in closer agreement with test results, 
however, more test data points are required to improve on this correlation. 
Unfortunately, although requested, more data was not available. The magnitude of 
this exaggerated meniscus liquid level rise in any case remains an unanswered 
question requiring further study. 

5.3.2 MAXIMUM LIQUID AMPLITUDE WITH BAFFLED TANK CONFIGURATION 


5. 3. 2. 1 Analytical and Test Results . Data points for the maximum liquid amplitude 
for the tank configured with the baffle are also presented on the figures discussed 
above. The vehicle configured with a baffle represents a more realistic condition 
compared to that without a baffle. Most liquid propellant space vehicles designed 
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with a multibum capability will require use of an antislosh device for propellant 
control because of the inherently low natural slosh damping. Here again an 
insufficient number of test data points is available for a thorough correlation of 
analytical and test results. 

Conditions with the baffle are unique in that in the tank, the fluid motion is physically 
impeded by the baffle causing the fluid motion to be directed through the unbaffled 
portion of the liquid vapor interface. In this manner the baffle acts more as a slosh 
deflector confining propellant motion than as a baffle in the conventional sense. The 
slosh analytical model includes the effect of the baffle purely as an energy dissipation 
device. The propellant motion is not physically constrained. Kinetic energy is 
removed in accordance with the theoretical energy dissipation provided by the baffle. 

The theoretical baffle damping is based on fluid drag in deflecting the liquid flow 
around the baffle. Under the low-g conditions being analyzed here the baffle is only 
wetted during a portion of the slosh cycle. The analytical solution has not been 
verified for this sustained condition. The results presented are based on an assumed 
effective baffle area based on expected slosh amplitudes. For this reason close 
correlation of propellant wave height at the tank wall for the test data and analytical 
results is not expected. 

The maximum amplitude data (Figures 5-8 and 5-11) for this condition shows reason- 
able agreement with the slope of the two curves being similar. However, more 
analytical work remains to be done in correlating the analytically determined baffle 
damping with that observed in actual tests, in particular, the rate of energy dissipation 
when the baffle is only partially covered during a slosh cycle. An alternative, if more 
test data were available, would be to parameterize the baffle energy dissipation in an 
attempt to empirically fit the slosh test data. 

5.3.3 AMPLIFICATION FACTOR . Another measure of liquid slosh amplitude entering 
a low g condition is obtained from the amplification factor. This is given by: 


where 0 is the instantaneous slosh phase angle when the acceleration level is reduced 
from ah to a^ and &h maximum slosh waveheight under the high-g condition and 
the maximum under the reduced-g condition. The amplification factor is based on 
energy considerations as measured by the maximum propellant waveheight . It is a 
measure of the maximum wave height under low g conditions based on initial energy 
conditions at the time of the g level change. Low-g capillary effects are not included. 
Theoretically for a slosh wave possessing mechanical energy only, this gives the 
maximum waveheight in the absence of damping. 


- 2 2 
sm <b + — cos 0 

a f. 


1/2 
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5. 3. 3.1 Analytical Results . Figure 5-14 shows the theoretical amplification factor 
as a function of the cosine of the phase angle squared. Based on linear slosh theory, 
this is the ratio of the Froude number at the drop to the maximum Froude number 
prior to the drop assuming no damping. A family of curves is presented for the drop 
tower test conditions. Points on the curve have been obtained from analytical 
simulation or drop tower test condition runs for the clean tank configuration. The 
points designated by solid symbols represent the amplification factor including the 
slosh attenuation provided by baffle damping as obtained from analytical simulation 
runs. The difference between these solid points and the corresponding smooth curve 
is a measure of the baffle efficiency in reducing the slosh amplification factor. This 
analysis indicates that the baffle as analytically simulated for the drop tower test 
configuration effectively reduced the amplification factor. 

5 . 3 . 3 . 2 Drop Tower Test Results . The amplification data presented in Reference 
5-7 appears to have little or no correlation with the analytically determined 
amplification factor. However for a valid comparison the steady state liquid level 
rise must first be removed from this data since this effect is not included in the 
amplification factor. Under this condition the measured slosh amplification factor 
does not exceed the theoretical maximum value, ie, the amplification factor for a 
phase angle of zero. Figure 5-15 shows the theoretical solution and the three test 
data points available. Note points are both above and below the theoretical curve. 
This figure suggests an error may have occurred in the phase angle in fitting a 
linear function to the test amplitude data. Again an insufficient number of data 
points are available to make any definite conclusions . 

5.4 S-IVB AS-203 SLOSH SIMULATION 

Simulation of the propellant slosh during orbital flight includes the basic slosh model 
with a six degree of freedom rigid vehicle. The forces and moments produced by the 
on-off attitude control system is also included. Propellant sloshing analysis during 
orbital coast is treated in two phases. The first is concerned with settling of the 
transient motion produced by main engine cutoff. Once the propellant motion has 
been stabilized, it must be retained in that condition to permit propellant tank venting. 
The primary concern here is with dissipating the slosh energy upon entering the low 
thrust coast mode. During sustained orbital coast, propellant slosh perturbations 
are produced by settling thrust disturbances , propellant tank venting, reaction control 
motor firings , and vehicle attitude changes . The initial phase is characterized by 
large amplitude slosh waves while the coast mode is characterized by relatively low 
amplitude slosh waves. The available flight data during orbital coast is qualitative 
at best, but the TV camera does show very low amplitude slosh waves. 

5. 4. 1 VEHICLE DYNAMIC MODEL. The dynamic model used for orbital coast is 
that of a six degree of freedom rigid vehicle with forces and moments produced by 
propellant motion represented by pendulums . The propellant slosh damping consists 
of a small linear component produced by fluid viscosity and in the liquid hydrogen 
tank a larger amplitude dependent term as a result of the baffle. The basic rigid 
body equations of motion with the addition of the propellant sloshing forces and 
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AMPLIFICATION FACTOR, t/t h 



Figure 5-14. Comparison of Theoretical Slosh Amplification Factor With Simulation 
Result for No Baffle and Baffled Tank Configurations 
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Figure 5-15. Comparison of Theoretical Amplitude Factor With 
Modified Drop Tower Test Results 
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moments are given below. 


Force equations are: 
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Figure 5-16 illustrates this model. A separate pendulum is used for each propellant 
tank in both pitch and yaw. Roll or rotary slosh is neglected with the vehicle assumed 
to rotate about the propellants. 



ROLL 

AXE 


Figure 5-16. S-IVB Propellant Slosh Dynamic Model 


The primary disturbance affecting propellant motion during sustained coast is 
produced by the reaction control motors in stabilizing the vehicle attitude along the 
desired reference attitude. Vehicle perturbations are produced by propellant tank 
vent disturbances and attitude maneuvering requirements. The attitude control 
system details have been obtained from Reference 5-9. The engine locations are 
shown in Figure 5-17 and the autopilot diagram as simulated in Figure 5-18. The 
engine thrust characteristics are approximated by a square pulse. The total 
impulse is preserved and effective thrust use and decay times are treated as pure 
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Figure 5-17. Saturn S-IVB Attitude Control System Engine Locations 


time delays. The engine control is such that the engines are commanded on when the 
controlling error signal exceeds the ON limit and commanded OFF when the signal 
falls below the OFF threshold. The pitch axis operates independently using two 
engines for control. Yaw and roll control is provided by a set of four engines 
operating in a coupled mode. The necessary parameter values obtained from 
personal communication with MDAC are given in Table 5-2. The commanded vehicle 
attitude is along the local horizontal with the positive yaw axis pointed down. The 
guidance attitude command is updated once every second commanding an -0.068 deg/ 
spc average pitch rate. 


5.4.2 SIMULATION RESULTS . Figure 5-19 shows typical simulation results during 
LH 2 continuous venting. The condition simulated is during the first continuous vent 
period of the first orbit. The average axial thrust is 8. 0 pounds which produces a 
1.36 x io -4 g axial acceleration. The Bond number is approximately 400 
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Figure 5-18. S-IVB Attitude Control System Autopilot Block Diagram 
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Figure 5-19. AS-203 Propellant Slosh Wave 







Table 5-2. Saturn S-IVB AS-203 Coast Phase Attitude Control System 
Parameters 


Parameter 

Description 

Value 

Units 

A/P Gain Ratio 


5.0 

sec 

Psuedo Rate Feedback Gain 

K f E 0 

0.133 

deg/ sec 

Pseudo Rate Feedback Constant 


0.65 

sec 

Pseudo Rate Circuit Hysteresis 

K o E o 

0.0133 

deg/ sec 

Rate Threshold 

E c 

0.20 

deg/ sec 

Attitude Control Motor Thrust 


142 

lbs 

Equivalent Engine Rise Time 


25 

millisec 

Equivalent Engine Decay Time 


10 

millisec 

Guidance Pitch Over Cycle Time 

At 

1.0 

sec 


minimizing capillary effects. The undamped natural first mode slosh frequencies 
have a period of 305 seconds in the oxidizer tank and 234 seconds in the fuel tank. 

Propellant sloshing is initiated in each tank in the pitch plane only. The initial wave- 
height is 15 inches in each case; initial velocity is zero. In the LH 2 tank this 
amplitude just makes contact with the baffle. Two disturbances are present, one 
produced as a result of pitch plane steering commands. The second is produced by 
the continuous vent system; pitch and yaw disturbances are 3.3 ft- lb and -3.4 ft- lb 
respectively as obtained from flight data. 

The propellant slosh amplitude data (Figure 5-19) shows a relatively insensitivity to 
both disturbances. The results show that in pitch both initial slosh waves decrease 
in amplitude with time. Because of the assumption of a slight amount of baffle damping 
LH 2 slosh damps out faster than LO 2 even though there is no contact with the baffle. 

This is an inaccuracy of the baffle damping model used. In yaw, where no initial 
slosh motion was assumed, a slosh wave is initiated in response to yaw control motor 
firings. Although neither of the disturbances are particularly significant, the larger of 
the two is produced by attitude control motor firings in response to the steering commands 
this relegates the continuous vent disturbance to a minor role. The lateral attitude control 
disturbances directly excite propellant motion. Fortunately the reverse is not true. That 
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is, the forces and moments produced by propellant sloshing are insufficient to cause 
attitude control system response. 

Fuel sloshing in the pitch plane shows the effects of guidance system attitude commands 
on propellant behavior. Note that after the initial slosh transient has passed there is 
a 0. 3 ft steady state slosh amplitude. A low amplitude oscillatory wave about this 
value can be seen. In addition a higher frequency (approximately 40 second period) 
component produced by attitude control motor firings in response to guidance commands 
can be seen. The time average lateral thrust of these firings is approximately 0.3 
pound, this moves the net vehicle acceleration vector (axial plus lateral) 2 degrees off 
the longitudinal vehicle axis resulting in the 0.3 ft steady state waveheight. In order 
to keep this steady liquid level rise small the ratio of the average lateral to axial 
thrust should be minimized. This can be accomplished by reducing all disturbances 
and maneuvering requirements to a minimum. For example, during the low thrust 
Centaur orbital flight no laterally directed engines are used for pitch and yaw control. 

Inspection of the AS-203 propellant slosh amplitude data shows that the LO 2 slosh is 
oscillating at its natural frequency. The LH 2 tank pitch sloshing shows in addition a 
cyclic response to attitude control motor firings. In the case of yaw the slosh wave 
is somewhat irregular and the frequency less obvious. The AS-203 flight represents 
an unusual situation in that the fuel slosh mass exceeds that of the oxidizer tank. 

For normal tanking conditions the L0 2 sloshing mass is an order of magnitude larger 
than the LH 2 counterpart. This is significant since when this condition exists the 
coupled system is driven by LO 2 propellant sloshing, with LH 2 beating in response. 
Although LO 2 is the driving function, by virtue of its large mass, usually LH 2 is of 
greatest interest as a result of the greater boiloff and venting considerations, 

5.4.3 SUMMARY OF SIMULATION RESULTS. Analytical results are based on 
simulation of AS-203 orbital flight during LH 2 continuous venting, range time of 
1200 seconds. Unfortunately there is no quantitative propellant amplitude flight 
data with which to compare simulation results directly. Under this condition 
verification of simulation results is qualitative at best. The propellant slosh 
amplitude data shows the perturbations produced by vehicle disturbances are 
insufficient to excite the propellants. This is true even in the oxidizer tank which 
does not contain a baffle. Slosh perturbations produced by attitude control motor 
firings are clearly evident and point out the need to keep vehicle disturbances at a 
minimum. In addition the forces and moments produced by propellant slosh were 
insufficient to cause coupling through the attitude control system. 

The results show that no coupled frequencies exist and that after the initial transient 
has passed the propellants oscillate at their natural frequencies. These results are 
in agreement with those presented in Reference 5-10 and point out the usefulness and 
applicability of the analytical slosh analysis. 
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5.5 SIMULATIONS WITH MARKER AND CELL MODEL 


The Marker and Cell (MAC) method of solution for fluid dynamic problems originated 
at Los Alamos and has been developed for application to low-g problems under Convair 
research funds (Ref. 5-11, 5-12, 5-13). A brief description of the program as it 
currently exists at Convair is given below. Applications to sloshing, settling, and 
propellant stratification are typical phenomena which can be simulated. In a second 
phase to this study contract, extensive modifications are being made to the MAC 
method to include surface tension and two-fluid simulation capability. Under that 
phase of the study, the complete code will be delivered to the NASA/MSFC. 

The MAC method is a numerical technique used to solve the full Navier-Stokes equations 
for a viscous incompressible fluid. These equations are coupled with the energy 
equation through the Boussinesq approximation to account for buoyancy effects due to 
density gradients. An initial value problem is then created by specifying the initial 
fluid velocities and temperatures and the velocities and temperatures around the 
boundaries of the system. When the differential equations are differenced, a two 
dimensional spacial mesh is created that may be visualized as covering the fluid 
system. The fluid passes through the mesh in increments corresponding to the 
velocities and time steps of the difference equations. In order to graphically depict 
the fluid motion, "marker particles" are placed in the cells of the mesh and moved with 
the velocities of the cells in which they reside at a particular time. The program 
stores the coordinates of all particles on tape for each time step, and this tape is then 
processed by data display equipment. This equipment plots a point on microfilm at 
the coordinates of each particle, and the resulting series of plots shows how the fluid 
configuration progresses in time. In addition to the particle plots, velocity vector 
plots and temperature and pressure contour plots are available that completely 
describe the fluid motion. When a series of these plots are placed together a motion 
picture is made that is analogous to viewing an actual experiment. 

5.5.1 SLOSHING SIMULATION MECHANICS . Since the AS-203 data on slosh is 
available only from an above camera view and because of the large tank size, it was 
decided to investigate MAC slosh modeling using drop tower data. The test series 
recorded on film in the MSFC tower provides good visual data for simulation. Details 
of the experimental conditions were provided in a recent paper (Ref. 5-7). 

The MAC simulation was performed for a six-inch diameter by ten inches high 
container filled to four inches with petroleum ether. A flat bottom cylinder was 
assumed. The actual physical situation modeled is a lateral acceleration setting up 
an initial slosh wave followed by a low-g drop period of approximately 4 seconds at 
constant accelerations within the range of 0.008 to 0.0313 g. Difficulties were 
encountered in the simulation of the initial accelerations setting up the wave motion 
at one-g prior to the drop. Wave motion was initiated by either initial displacement of the 
interface resulting in a potential energy source or initial fluid motion or acceleration 
imparting kinetic energy prior to the drop. The following methods were evaluated and 
compared after a few time steps. 
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A. The fluid was given an initial distorted interface at time zero resembling the zero 
velocity position after one-quarter cycle. 

B. The fluid with a flat interface was given an initial velocity at time zero in a 
lateral direction. 

C . The fluid was given an initial lateral acceleration at time zero which was cut-off 
at drop time. 

D. The fluid was given an initial positive lateral acceleration at time zero followed 
by an equal magnitude and duration negative acceleration, both prior to drop. 

In all of the above methods, secondary wave motion occurred at the interface and moved 
from the high amplitude liquid side to the low. This secondary wave motion was not 
observed in the drop tower film data prior to drop because of its low level. Interface 
disturbances observed in the analysis of movie data for Test 2F-41 when g-Ievel dropped 
from 1.0 to 0.0313 were not relatable to the surface motion predicted with MAC. The 
single lateral acceleration, C above, appears most suitable for initiating the slosh wave. 

The results of a MAC simulation of the drop tower data is presented in Figure 5-20 
to illustrate the difficulties with interface motion. The small sloshing wave perturba- 
tion in this case was started with die fluid given an initial velocity at time zero 
simulating the side motion of the container in the one-g environment. At time . 3 
seconds, the g-level is reduced from 1-g to . 0313-g for the remainder of the run. 

The input variables were a 13 x 20 mesh of size . 05 ft with 630 particles. The 
kinematic viscosity of the fluid is 3.37 x 10“® ft2/ sec. It is concluded that numerical 
instabilities occur in the interface cells due to high velocities gradients, low viscosity, 
and the absence of surface tension. Similar observations have been reported by Daly 
(Ref. 5-14) in his investigation of Rayleigh-Taylor instabilities with the marker-and- 
cell method. In the illustration 5-20, the interface is distorted prior to the drop time 
of .3 seconds, these instabilities are then magnified in the low-g environment. It is 
observed that the main slosh wave is significantly magnified in the low-g environment. 
Modifications now in progress under the continuation of this contract to incorporate 
surface tension in the MAC method will considerably enhance the predictive reliability 
of this procedure for sloshing. 

5.5.2 SETTLING DEMONSTRATION MODEL . The Marker and Cell method has 
application in several areas of thermodynamic and fluid dynamic investigation. A 
sample problem was developed under Convair research funds to illustrate a possible 
settling experiment for the S-IVB configuration from an unsettled liquid situation. 

The results of this sample case are presented in Figure 5-21. A mesh of 21 x 36 
cells of one ft by one ft model the S-IVB fuel tank. Nine particles are placed in each 
cell full of liquid. A pressure of 35 psia is applied uniformly to the interface. 

Commencing at time zero and remaining constant, a settling force of 1.35 g is applied 
vertically along with a .01 lateral force. The presentation duration of Figure 5-21 
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FLUID CONFIGURATION PLOTS 
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represents 0. 909 seconds real time. The scaling factor for velocity vectors can be 
determined from the values indicated for the maximum vector. With a constant ullage 
pressure of 35 psia, pressure isobars are shown with Pmin the top °t the 
P max at the tank bottom. This example indicates the potential of this method for 
modeling orbital fluid behavior. Excessive running time is a program limitation for 
analysis of fluid dynamics after the initial fluid mass impinges on the opposite end of 
the tank. Fluid velocities are very high requiring small time steps; moreover accurate 
fluid resolution after this time requires selection of an initially very fine mesh with the 
inherent higher cost. A motion picture presentation running two minutes depicting this 
experimental simulation has been produced. 

5.5.3 STRATIFICATION/DESTRATIFICATION MODELING. Another feature of the 
MAC method which indicates potential for low-g modeling is the stratification or 
destratification of fluids. A free convection study has been performed in a liquid 
hydrogen tank in a 10“^ g field to show the potential for tankage with complex boundary 
conditions, hi this case, the fluid is initially at 35°R with the side walls kept at 369°R. 
A penetration resulted in a hoi spot at 600 °R on the left wall while the bottom bulkhead 
was kept at 166°R. Mesh size was 0.2 ft for a 13 x 19 mesh with 464 particles used. 
The temperature and velocity' contours are shown in Figure 5-22. The initial 
temperature contour plots show the development of a heated fluid layer along the 
sidewalls and bottom. This causes convection patterns as shown in the velocity vector 
plots. These patterns are strongly influenced by the presence of the baffles which 
deflect the hot fluid toward the middle of the tank. The temperature contours on the 
lower left side show the presence of the high heat flux penetration and it can be seen 
that the fluid velocity on this side is greater than on the right. In addition to the two 
major vortices in the lower part of the tank, there are two above the baffles. The 
temperature contours show gradual heating of the bulk fluid due to mixing until at about 
35 seconds there is no longer any distinct unheated liquid. At this time what appears 
to be a numerical instability can be seen in the downward moving fluid adjacent to the 
heated fluid layer. This is probably caused by the high velocity gradients and low 
viscosity. Increasing the viscosity or decreasing the mesh size would help to reduce 
this instability, however, another differencing scheme should also be considered. 

The simulation of the AS-203 stratification during the long-term coast phase was 
examined; however the planned computer budget did not permit the extensive 
investigation which would have been required in developing the modeling of that 
stratification phenomena. 

5.5.4 MARKER AND CELL MERITS . The MAC method shows significant benefits as 
a tool for the analysis of fluid behavior in low-g. The ability to simulate several 
aspects of drop tower testing have been demonstrated (Ref. 5-12). The introduction 
of surface tension into the model will qualify the model for further analysis of various 
aspects of interface behavior in low-g. Specifically, sloshing and settling studies 
should be continued after the inclusion of surface tension is completed. The potentials 
of this tool for destratification analysis with the simulation of internal mixing with a 
pump should be further pursued. 
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CONCLUSIONS AND RECOMMENDATIONS 


1. The PRISM model used in Section 2 indicates adequately the energy and mass 
contributions during the repressurization process. This model is highly suited 
to a parametric analysis of energy contributions including recirculation flow. 

The AS-203 data can be represented by this model with judicious selection of 
empirical constants. The S-n Pressurization model was analyzed to determine 
its suitability to repressurization analysis; from the disparity with AS-203, it 
was concluded that the influence of recirculation flow on the ullage pressure 
behavior is significant. 

The analysis of chilldown flow merits further analysis. This requirement will 
reoccur in the design of engine chilldown sequences for all vehicles with orbital 
restart requirements. Although a recent contract (Reference 6-1) resulted in a 
chilldown computer model, this model lacks the flexibility for analyzing lines 
where thermal mass varies with length. A program is required in which flow 
rate and thermal mass are input and outlet quality is defined. The interaction 
of this recirculation flow with the bulk liquid and then apparent interaction with 
the ullage should be further analyzed. 

2. Convair computer codes for propellant heating were found to be adequate for the 
analysis of AS-203 orbital heating during the long term coast. Large differences 
were determined between the heating for the four individual vehicle quadrants ; 
this should be accounted for in all thermal analyses. The heating rate to the 
dome was higher than originally assessed, the absorptivity of the forward dome 
exterior had probably deteriorated from .05 to .20. The latter value fit thermal 
predictions best. This deterioration should be avoided on future flights by proper 
insulating techniques. Thermal energy predictions agreed more closely with 
AS-203 rates predicted by wall temperature difference than with changes in fluid 
properties. Evaporation was probably less than 50 lbs during the long term coast 
period. 

The ullage heating should be predicted within five percent to attain reasonably 
accurate pressure rise rates. Both the S-II Pressurization program and 
REPORTER closely predict pressure rise rate when furnished with good ullage 
heating data. Although settled propellant coast pressure rise prediction capability 
has been verified within this study, unsettled propellant behavior should be further 
considered and models verified for extended long term coast. 
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3. The AS-203 data was reviewed and indicated no serious problems with liquid 
level rise for vent rates of 2.2 lbm/sec with the propellant initially settled. 
Parametric studies with three analytical models confirmed these results. A 
model which states all sensible heat goes to boil-off is unreliable and overly 
conservative. A pre-design model developed on the basis of boiling in the 
boundary layer affords reasonable results for liquid level rise parametric data. 

A bubble dynamics model confirms the above pre-design model and indicates 
good potential for the study of bubble behavior in low-gravity environments. 

In the analysis of liquid level rise, significant factors are wake effects on 
bubble velocities, agglomeration, and void faction effects on bubble velocities. 

A related area to liquid level rise is the break-up of the interface into globules 
which float in the ullage. This was observed on AS-203 but the mechanism 
providing this large amount of energy to the globules was not identifiable. 

The behavior of bubbles in temperature fields in low gravity environments will 
define the propellant ullage configuration for design specification. Ullage 
growth due to bubble agglomeration from localized heat leaks should be analyzed. 
The program EVOLVE provides a useful tool to perform this analysis. The 
fluid configuration also interacts with propellant heating and the pressure rise 
evaluation. These areas merit extended analyses before design proceeds on 
new stages with long coast periods. An analytical study is called for on 
interface break-up during changes in g-level and during vent downs. An 
examination of interfacial forces and the interaction of emerging bubbles is 
required. The location of the propellant and the ability to control this location 
are important considerations in vehicle design. 

4. Liquid propellant slosh analysis is based on an analytical solution to the hydro- 
dynamic equations of motion. Drop tower testing of a 6-inch scale model S-IVB 
afforded more detailed data for analysis than the AS-203 coverage; however 
both were simulated with the slosh model. The correlation of maximum liquid 
amplitude with Froude number between the slosh model and drop tower data 
shows under prediction below a Froude number of one and over prediction at 
higher Froude numbers. Differences shown between theoretical amplification 
factor and observed model data are an indication of baffle efficiency. Transient 
meniscus effects complicate the analysis of sloshing in drop tower tests, 

in addition the meniscus is larger than theoretically predicted. The most 
serious discrepancy between analytical and test results however exists in the 
modeling of propellant slosh with partially uncovered baffles. 

Time averaging of propellant slosh energy losses in low-g can result in serious 
errors in predicting fluid behavior. Mathematical modeling under these slosh 
conditions is not well established. Further analytical development and correlation 
with test data is necessary. Possibly curve fitting test results with current slosh 
baffle damping parameters would prove useful. 
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Simulation of S-IVB sustained coast shows that the reaction control motors are 
the single most important disturbance. It is therefore necessary to minimize 
vehicle maneuvering requirements and keep disturbances at a minimum. No 
coupled frequencies were observed in simulating S-IVB flight conditions; the 
propellants oscillated at their natural frequencies. The results of this study are 
in qualitative agreement with actual AS-203 results and confirm the utility and 
applicability of the sloshing model used. 

5. The Marker-and-Cell model has broad applicability in the analysis of fluid 
behavior in low-g. In slosh simulation some difficulty was encountered in 
setting up initial conditions. Fluid simulation of sloshing can be improved 
with the addition of surface tension to the model. Applicability of the model to 
sloshing, settling, and stratification are demonstrated. Additional analysis 
is required in wave amplification analysis as related to propellant control 
devices such as baffles and deflectors. It is also recommended that further 
efforts be made to simulate other available low-g data with this theoretical 
model to define and confirm the applicability to orbital low-gravity simulation. 
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APPENDIX A 


PRISM PROGRAM 


This program is designed to predict pressurization system requirements and pressure 
histories for the Centaur and S-IVB vehicles. The full capability of the program is indicated 
by the input, nomenclature and program listings given below. Some program options were 
not used as evidenced by the sample input case shown at the end of the program listing. 

The input is explained following the listing. 

The problem was inputted in three phases. In the first phase, helium addition and 
ambient heating were included. In the second phase recirculation begins. In the third, 
helium addition is not included while ambient heating and recirculation continue. 



Card 1 of the input gives the constant data indicated on page A- 3. Helium bottle data 
is not included since the helium flow rate, temperature and pressure are input as a function 
of time. 

Card 2 gives indicators for heat input. Three heating segments each will be input 
with heating values. The heat transfer options in the program are not used since the 
data obtainable from these calculations was already available from the Variable- Boundary 
II Heat Conduction Program (P 2162). The sixth, seventh and eighth data fields indicate 
whether recirculation, multilayer walls and helium flow rates inputs are to be used. 

Cards 3,4, and 5 give the stations for each of the 3 heating segments. 

Card 6 indicates the heat table entries will be 14 for Table 1. 

The next 14 cards (7-20) give the heating rate for 14 time values for segment 1. 

Cards (21-50) give heating tables for nodes 2 and 5. 

Card 51 gives the number of recirculation values to be inputted. The next five cards 
give that number of recirculation flow rates. This is followed by the Ah between the liquid 
entering the recirculation system and the fluid exiting the recirculation system and reentering the 
tank. The times corresponding to these flow rates and enthalpy changes are then listed 
in order. 

The next table (Card 67-73) for helium pressurant inflow gives 9 entires of flowrate, 
followed by 9 entries of temperature entering the tank and 9 time values. 

Card 74 begins the case data which is specified by "namelist. " Following the title 
card is series of case data values giving the initial ullage pressure, temperature, mass of 
liquid and saturation pressure. 

The case data is followed by phase data indicating whether recirculation, helium 
addition, liquid outflow, venting, interfacial heat transfer tank wall vaporization, or 
ullage heating directly by the recirculation flow occurs. Also given are the gravity level, 
the initial time and time step and the allowable integration errors. Phase data is given 
for all three phases separately. 

Three cases are then inputted in addition to the initial case outlined. The case data 
and phase data are repeated completely for each case with appropriate changes made corres- 
ponding to each case. 

Central processer time used for the four runs in Figures 2-6 and 2-7 was 34 sec. 


LISTING OF PRISM INPUT 

(P3995) 

1.1 CONSTANT DATA - FORMAT (8E10. 5) 

2 

AL = Area of Liquid - Gas Interface, ft 

CP = Approx. Const. Pressure Specific Heat of Propellant Vapor, Btu/lb °R 

CV = Approx. Const. Volume Specific Heat of Propellant Vapor , Btu/lb °R 

CPHE = Const. Pressure Specific Heat of Helium Vapor , Btu/lb°R 

CVHE = Const. Volume Specific Heat of Helium Vapor , Btu/lb °R 

HFG = Heat of Vaporization of Propellant, Btu/lb 

CL = Specific Heat of Liquid Propellant , HTU/ Ib°R 

RHE = Gas Constant of Helium f 

VBTL = Volume of Helium Bottle, in^ 

MBTL = Mass (Weight) of Helium Bottle, lb 
CBTL = Specific Heat of Helium Bottle, Btu/lb °R 

o 

ABTL = Helium Bottle Area For Heat Transfer From Bottle to Helium, ft 

2.1 INDICATORS FOR HEAT INPUT- FORMAT(lO 12 ) 

NQSEGS = No. of Segments (or Nodes) of tank heating to be Inputted 

NQWTBS = No. of Tank Heating Tables 

NCWTBS = No. of Tank Wall Specific Heat Tables 

NNER0 = No. of Sets of St. Nero Heating Tables 

NRETR0 = 0 or Blank for no Retromaneuver Data 

Positive Interger For Input of Retromaneuver Data 

IRECIR = 1 or 0, Re circulation Flow, 0 if Omitted 

MLTIWL = 1 or (^Multiple Material Wall or Multitemp Wall 
0 if Single Thickness 

IBURP = 1 or 0, 1 - Inputting Helium Bottle Flow Rate 

0 - No Helium Bottle 

2.2 HEATING SEGMENTS (NODES) - FORMAT (512, 7E10. 2) - Repeat 

IQW = Heating Table Flag 

ICW = Tank Wall Heating and specific heat flag. 


IF LUX 

LAW 

INER<2f 

ST0PS 

SB0TS 

QW 

TW 

MW 

EMISS 

FAW 


= Flag to indicate whether heating rate or heat flux is 
being input 0 - Rate 
1 - Flux 

= Tank Side Wall Area Flag 

= St. Nero Heating Table Flag (will not handle upper dome type 
radiation) 

= Station of Top of Heating Segment - from top 
= Station of Bottom of Heating Segment - from top 
= Segment Heating Rate (or Flux) 

= Segment Wall Temperature 
= Segment Wall Mass 

= Emissivity for Reradiation to Space From Segment Wall Area 

= Ratio of Segment Area to Tank Wall Area Between 
( ST4P) and (SB0TS) 


Also (if ICW = 0 with Format E 10. 5): 

CW = Specific Heat of Wall Segment 

Note: If IQW. 6TO, QW may be left blank, also if ICW. LT. 0 TW, MW, and 
EMISS may be omitted. 


If FAW is left blank, program sets it equal to 1. 0 

2.3 HEATING RATE TABLES - FORMAT (212, 6X, E10. 2/(2E10. 2)) - REPEAT NQWTBS 

NQ = No. of Pairs of Entries in Heating Table 

NQTB = Heating Table No. (must be LT. 6) 

DTQ = Bias Added to (TIME) prior to Loock-up in Table 

TBTQ = Time Entries in Tank Heating Table, Second 

TBQ = Heating Rate (or Flux) Entries in Heating Table, Btu/ sec 

2.4 SPECIFIC HEAT TABLE - FORMAT (2I2/(2E10. 2)) - Repeat NCWTBS TIMES 

NCW = No. of Pairs of Entries in Heating Table 

NCWTB = Specific Heat Table No. (Must be LT. 4) 

TBTCW - Temperature Entries 

TBCW = Specific Heat 

2. 5 ST NERO HEATING RATE INPUT - FORMAT (212, 6X, 3E10. 2) and (F10. 2, 10X, 

4F10.3) 
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2.6 

2.7 


3.1 

3.2 


RETROMANEUVER DATA 
RECIRCULATION TABLE 

NRE = No. of entries Recirculation Table (Maximum 50) 

XRECIR = Recirculation Flow Rate, LB /SEC 
XDELH = Recirc AH, BTU/LBM 

RETIME = Time of entry 

NHE = Number of entries, Helium pressurization table 

HEFLOW = Helium flow rate, LB/SEC 
HETMP = Helium temperature at inlet, °R 
TBURP = Time of entry 
CASE TITLE CARD - FORMAT (8A10) 

HEAD 

CASE DATA - FORMAT SPECIFIED BY "NAME LIST" (Good for every phase run 
or initialized yalues 


P 

PU 

PHE 

TU 

TW 

TBTL 

PBTL 

XML 

PSATL 

ISAVE 


NVENT 

XPVENT 

XMVENT 


Total tank pressure, psia 

Initial ullage temperature, °R 
Initial ullage temperature , °R 

Initial wall temperatures (supercede TW in 2.2), °R 
Initial temperature of Helium Bottle and Helium in Bottle, H 
Initial pressure of Helium in GH, PSIA 
Initial mass of liquid, lbs 

i 

Initial vapor pressure of liquid, PSIA 

Flat = 1 for normal initialization 

= 2 for reinitialization to previously saved conditions 
= 3 to use conditions at end of previous phase as initial 
conditions for next phase 


No. of entries and vectors containing table of vent flow rate 
versus pressure 
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4. 1 PHASE TITLE CARD - FORMAT (80H ) 

4.2 PHASE DATA - FORMAT SPECIFIED BY "NAMELIST" 


CD 

A0T0T 

A0FUEL 

A0GAS 

C0NTLG 

CONQLG 

C0NTV 

DEADWT 

WRATI0 

TIME 

TIMEF 

DTI ME 

DTT0L 

EPSP 

EPSR 

EPSA 

HAMS 

HBTL 

HEUSE 

IFL0W 


G 

MD0TFF 

MD0TRS 


= Burp Orifice Discharge Coefficient 

o 

= Burp Orifice Area "Seen" By He Bottle, in 

| Burp Orifice Area "Seen" by Ullage, in^ (2 names for 
same variable) 

Constant Multiplied to Rate of Heat Transfer From Gas 
= J to Liquid (usually = 1.0) 

= Constant to specify vent temperature, T vent = T u + CON TV ‘KT U -T^q ) 

= Dead weight of vehicle (for acceleration calcu) 

= Ratio of Total Liquid Propellants to Liquid in Tank Under Study 

= Initial Time (This is updated during phase and equals TIMEF at 
End of Phase) 

= Final Time of Phase 

= Initial Stepsize (changed in DIFE3 to Satisfy Error Tolerances) 

= Time Allowance in Specifying Boil-off 

= Allowable Relative Error in Pressure Iteration 

= Allowable Relative Error in Integration 

= Allowable Absolute Error in Integration 

= Heat Transfer Parameter in Spray Calculations 

= Helium Bottle Heat Transfer Coefficient, Btu/hr-ft^-°R 

= Helium (Constant) Usage Rate, lbs/sec 

= Venting Flag = 1 Vent - but V/V initially closed 
= 2 Vent - but V/V initially open 
= 3 No venting - vent rate initially set = 0. 

= 4 Call subroutine VENT 
= 5 No venting - vent rate set = 0 each time. 

= G LEVEL = (g/g Q ) 

= Vent valve flow rate at P=PFFL0W and T = 45°R, lbs/sec 
= Vent valve reseat flow rate, lbs/sec 


MPRESET = Vent Valve Reseat Pressure, psia 
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PCRACK = Vent valve cracking pressure, psia 
PFFL0W = Vent valve full-flow, pressure, psia 
MD0TL = Liquid outflow rate (constant), lbs/sec 

NEXT = Flag = 1 to return for input beginning at 1. 1 at end of phase 

= 2 to return for input beginning at 2. 1 at end of phase 

= 3 to return for input beginning at 3 . 1 at end of phase 

= 4 to return for input beginning at 4. 1 at end of phase 

= 5 to stop at end of phase 

Fraction of liquid heating which goes to heating liquid, 
remainder goes to boil-off, this parameter is calculated in 
Prog, if CONQBO > 0. 

TM = Vector of integrated quantities 

NQS = Number of Heating Sections - Supercedes NQS (= NQSEGS) in 2. 1 

DTQ = Heating Table Time Bias, Seconds 

QBP = Boost pump Heating Rate, Btu/sec 

QWG = Rate of Heat Transfer From Walls to Ullage, Btu/sec 

(Not used if NWSTO) 

QWL = Rate of Heat Transfer From Walls to Liquid, Btu/sec 

TIMES = Time Bias in Spray Calculations, seconds 
X = Quality of spray flow 

F = Total Vehicle Thrust, Pounds 

DTQSW = Same as DTQ(l) 

RRATE = Vehicle Roll Rate (Relative to St Nero Input), Degrees/sec 

QW = Wall Heating Rate, Supersedes QW in 2. 2, Btu/sec or Btu/sec-ft 2 

PVARY0 = Pressure at which bump orifice area is set to zero, psia 

DPVARY = Delta- Pressure (Below PVARY0) at which orifice area begins to 
be restricted. 

CONSAT = Constant to specify pressure at which liquid boil-off occurs 
= 1.0 for B/O at partial pressure of vapor 
= 0. 0 for B/O at tank pressure 

ISAVE = Save Flag = 1 To not save initial conditions of phase 

= 2 To save initial conditions of phase for initial 
conditions of future case 


PCQLH2 

FQLIQ 
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DISPRAY 

ICPV 

C0NQSP 

IRETRO 

XMPULL 


IPL0T 

NPL0T 

CONFAC 

TNVNT 

KBURP 

C0NBRP 


C0NQB0 


KRECIRC 

CONFAC 


Flag 


= Flag 


= l To perform spray calculations during phase 
= 2 To not perform spray calculation during 
phase 

<0 Do not call subroutine CPVENT 
>0 Call constant pressure venting subroutine 
in CPVENT. Must also set IFL0W = 5 


= Constant to specify LOX tank standpipe heat transfer. 

< 0 Do not call subroutine RETRO during phase 

= Flag; 

>0 Call subroutine RETRO during phase 

= Liquid mass remaining in tank when gas pull-through 

occurs during retromaneuver , pounds 

[ < 0 No plots 

1 Save points for plots 

|= 2 Save points for plots and generates plots at end of phase 
= Identifies variables to be plotted 
= Fraction of energy to liquid due to recirculation 
= Vent temperature 

= Flag for helium addition, 0 -No Helium 

1 - Helium Added 

= Constant between 0. and 1.0. If 1. 0 as maximum heat 
transfer occurs due to burp. If 0. 0 no vapor is formed 
due to burp. 

= Constant between 0. 0 and 1. 0 determine fraction of 
Helium added to sensible heat of liquid. 0. 0 for Helium 
added to the top of the tank. 1. 0 for Helium added at the 
bottom and bubbled up through the fluid. 

= Recirculation flag - set to 1 to start recirculation 
= Constant 1.0 means all recirculation flow condenses 
before it reaches the ullage, 0.0 means all recirculation 
flow reaches the ullage with no energy transfer to the 
liquid. 
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DL 

D0 

AT 

AC 

FRICTN 

GAM 

LINE 

MF d 

MC 

MFT 

AFI 

KBUG 

AE 

FMIN 


Variables for Improved Centaur Venting Subroutine 
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APPENDIX A 

PROGRAM LISTING FOR PRISM 


RUN(S«""»"1) 

SET ( 0 ) 

LGO. 

R 

PROGRAM PRISM (INPUT* TAPE5=INPUT , OUTPUT * TAPE6=OUTPUT » TAPE48) 
CENTAUR TANK PRESSURE SIMULATION PROGRAM 
DIMENSION TM ( 99 ) t HEAD ( 8 ) »AWLL(2> »TMSAVE(99) 


REAL 

mdotl 

,MD0T8P 

,mdote 

* MDOT V 

» MDOTG 

» MDOTHF 

»MOOTFF»MDOTS * 

♦ 

MDOTSO 

» MBTL 

*mdotet 

»MDOTRS 

» LEFF 

* MW 


real 

MDOTt3 







COMMON 

/CMAIN/ 






♦ 

AOTOT 

t AOGAS 

*A(_ 

»AWLL 

» ABTL 

* 


♦ 

CD 

*cv 

,cp 

»CVHE 

rCPHE 

* CL 

»CHTL » 

♦ 

conqlg 

rCONTV 

» CONS AT 

*conqsp 

» 



♦ 

deao»t 

»DTIME 

*DTTOL 

rDPVARY 

t 



* 

EPSP 

t EPSR 

»EPSA 

* F 

»FQLIQ 

* FMDOTS* G * 

♦ 

HFC- 

» HAMS 

,HEUSE 

» HBTL 

* HW 

»HL 

* 

♦ 

IFLOim 

* IFLOW1 

* ISPRAY 

*11 

* 12 

»ICPV 

» ISAVE »LEFF » 

♦ 

MUCTL 

t MDOTBP 

,mdote 

* MDOTV 

»MDOTG 

* MDOTHE 

* MDOTFF » MOOTS , 

* 

MDOTSO 

»mbtl 

* MDOTET 

* mdotrs 

rNTOOT 

» 


♦ 

P 

rPBTL 

rPCRACK 

^PRESET 

»PFFLOw 

* PR 

*P1 »PINV » 

♦ 

PVARYO 

rPMAX 

* PMIN 

* PCON 

* 



* 

OGS 

»OBHE 

* OBP 

*OWL 

rQWG 

» QGL 

* 

♦ 

RHOL 

» RHOG 

» RHE 





* 

SV 

* SVSAT 

* SVVNT 

*SLL 

» SIGN 

* STOP 

* SVLIQ » 

* 

TU 

» TUI 

*tsat 

» TVNT 

»TIMES 

» TMES2 

»TIME1 * 

♦ 

UG 

rUGSAT 

fUGVNT 





* 

VTOT 

* VL 

*VU 

»vui 

» VBTL 

* 


* 

WRATIO 

*X 






COMMON 

/heat/ 







♦ 

NOS 

f IQW ( 30 

) » lew 

(50) » IFLUX . 30 ) * I AW (30 ) »FMISS(30)* 

♦ 

ST OPS (30 ) » SBOTS ( 30 ) 

»QWi30) 

* TW i50 ) » MW ( 30 ) »CW*30) , 

♦ 

FAW ( 30 ) » ATOP ( 30 ) *AW(30) * 

nqw(5) 

* TBTQ 1 30*5) * TBQ (30*5) * 

♦ 

NCW(3) 

rTBTCW ( 30*3) 

» TBCW ( 30 » 3) *DTQ ( 5 ) * 


♦ 

NAW ( 2 ) 

* TBSA (90*2) 

*TBA(90>2) 




COMMON /TAbLE/ 

* NPGf NTG r T0PG ( 9 ) » TBTG ( 9 » 50 > * TBSV ( 9 » 50 ) * TBUG ( 9 * 50 ) » 

♦ NSAT t XPSAT (10) »XTSAT(10) ,XSVSAT(10) »XUGSAT<10)» 

* XHFG(IO) r XSVLIO < 10 ) »NvOL t TBHVOL ( 1 1 0 ) , TBVOL 110)» 

♦ NVhNT»XPVENT(10) t XMVtNT ( 10 ) » NS ,XTIMES<20) *XMDOTS(20) 


♦ 9 

TBTKW ( 10 » 3) , 

TBKW ( 10 

» 3 ) t NKW ( 3 ) 



COMMON 

/CVtNT/DL 

t DO 

t AT »AC 

»FRICTN»GAM 

»LINE » 

♦ 

MO rMC 

»MT 

» A I » PTO 

,P TS r POO 

»POS , 

* 

FPO t FPT 

t PC 0 

»PI0 »AE 

t KBUG t ME 

»ISP ► 

* 

PCS t DPENT 

t PT ANK 

f IFIRST * IPRINT 

> FMIN 


COMMON 

/S4HEAT/ 






* MLTIwL rMATL(7»12) »NSLICE(12) »THICK(7*1?) »WD 3) 
COMMON /S4MAIN/ 

* XRECIR ( 50 ) r XDELH ( 50 ) , RETIME ( 50 ), RECIRC * DELH 

* NRE #CONFAC , XRECIR #TBI t MOOTE3 

* KRECIK t QLREC * MDOTC 


A-10 


iHEFLO J50) »HETMp(50) ,TBURP (50), 


>RRATE 


COMMON/BURP/ 

* IBURP , NHE 

* KBURP , PHE 

COMMON /CNERO/ NNERO , NSETS , NSET ( 2 )» INER0( 30 ) 

COMMON /CTEMP/ CONBRP»CONQBO»SBOT 
COMMON /CPLOT/ IPLOT, NPLOT(tt) 

COMMON /CTEMP1/ IRETKO, XMPULL 

COMMON /CTEMP2/ PSAT,MD0TE2,PVLIG,QV,QVL»QVG,PVAP 
COMMON /CCIFE/ IERROR,NOFE 

REAL MC ,MO , MT ,LI*E , ISP ,ME »MF0 
REAL mdotc 

EQUIVALENCE 


iMFT 


EXTERNAL 


(AOFUEL,aOGAS) , (PCQLH 2»FQLIQ) , (DTQSW,DTQ 1) ) » (PU,P) 
( MO ,MF0 ) , (MT,MFT),iAI,AFI) , (C0NQLG,C0NTLG) 
CERIV,CNTRL 



NAMELIST /CASE/ P ,PU 

,TU 

»PSATL ,TBTL 

,pbtl ,xml , 

♦ 

T* 

, PR , TMES2 

,FMDOTS 

* ISAVE ,PHE 

, 

♦ 

NS 

,XTIMES, XMDOTS 

, NVENT 

,XPVENT»XMVENT 

»IFT8 

NAMELIST /PHASE/ CO ,AOTOT 

, AOFUEL 

,contlg,contv 

,deadwt»dttol , 

* 

dtime 

,EPSP , EPSR 

,EPSA 

»HAMS ,HBTL 

, heuse ,iflow , 

* 

MDOTL 

,MOOTFF,NEXT 

,PCQLH2 

» PRESET, PCRACK 

,PFFLOW,TM , 

♦ 

NQS 

,DTQ , QBP 

,QWG 

, QWL , TIME 

rTIMEF , TIMES , 

♦ 

WRATIO 

, X , AOGAS 

,fqliq 

,F , DTQSto 

»RRATE »QW , 

♦ 

PVARYO 

,DPVARY,CONSAT 

, ISAVE 

» ISPRAY , ICPV 

,MDOTRS,CONQLG» 

* 

COMQSP 

, CONBRP, CONQBO 

, IPLOT 

»nplot ,tvnt 

, IRETRO, XMPULL, 

* 

DL 

, DO , AT 

,AC 

,frictn,gam 

,LINE , MFO , 

* 

MC 

,MFT , AFI 

,kbug 

, AE , A I 

,FMIN ,IMIX 

♦ 

, G 

,CONFAC,TBI , 

kkecir, 

KBURP ,DTHE 



DO 10 1=1, NPG 
IQ TBPG(I) = 1 • /Tt3PG ( I ) 

PMINP = l./PMAX 
PMAX = l./PMIN 
PMIN = PMINP 
1PRINT = 1 
CONBRP = 1.0 
XMPULL = 1 »£+10 

20 REAL (5,30) AL,CP»CV,CPHE,CVHE,HFG»CL,RHE, 
* VBTL,MBTL»CBTL,AbTL 

30 FORMAT (6E10.5) 


40 READ (5,18b) NQSEGS, NQWTBS, NCWTBS, NNERO, NRETRO, IRECIR , MLTIWL 

* , IBURP 

IF (NQSEGS. LE.O) GO TO 90 
NQS = NQSEGS 
NSETS = 0 
DO 60 1=1, NQS 

READ (5, IbO) IQW ( I)»IC*/(I), IFLUX (I) , I AW{ I ) , I NERO 1 1 ) , STOPS ( I ) , 

* SBOTS(I) ,QW(I) ,TWtI) ,MW(I) ,EMISS(I),FAW, I) 

IF (ICW(I) .EQ.O) READ (5,30) CW(I) 

K = IAWII) 
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CALL TABL (STOPS* I ) » ATOP ( I ) » TBSA ( 1 »K ) » TBAU , K ) » 1 » 1 . 1 »NAW (K ) , IB) 
CALL TABL (SBOTS* I ) » ABOT . TBSAt 1 .K ) . TBA ( 1 , K ) , 1 , 1 . 1 , NAW ( K ) , IP) 

AW ( I ) = ATOP ( I ) - ABOT 

IF (AW(I).LE.O.O) AW ( I ) = -A*(I) * l.E-50 
IF (FAW(I) .LE.O.O) FAW(I)=1.U 
IF (IFLUX(I) .GT.O) FAW(I) S FAW(I)*AW(I) 

IF (IQW(I).EQ.O) QW ( I ) = QW(I)*FAW(I) 

IF (INERO(I) .LE.O) GO TO BO 
IF ( NSETS .EG * 0 ) GO TO 70 
00 60 Jrl.NSETS 

60 IF ( IQW( I ) .EQ.NSET ( J) ) GO TO 80 
70 WSfcTS = NSETS + 1 
NSET(NSETS) a lQw(I) 

60 CONTINUE 
C 

90 IF (NQWTbS.LE.O) GO TO 110 
DO 100 Isl.NQWTBS 

READ (5.170) NG.NGTB.DTQ(NQTB) , <TBTQ( J.NOTB) » TPO ( J » NQTB ) » J=1 . NO ) 
100 NQW(NQTB) = NO 

c 

110 IF (NCwTbS.LE.O) GO TO 130 
DO 120 I=1.NCWTBS 

READ (5.180) NC.NCWTd. (TBTCW( J.NCWTB) » TBCW ( J . NCWTB ) » Jsl.NC) 

120 NCw(NCWTB) = NC 
C 

130 IF (NNERO.GT.O) CALL NEROIN 
IF (IRECIP .LE. 0) GO TO 140 
READ (5# 16b) NRE 

READ (5. 190) (XRECIR(I) »I=1»NRE) 

READ (5.190) ( xDELH (I)»I=1»NRE> 

READ ( b . 190 ) (RETIME(I) »I = lrNRE) 

C 

140 IF ( IBURP .Lc. 0) GO TO 150 
READ (5.165) NHE 
READ (5.190) (HEFLOU) .I = l»NhE) 

READ (5.190) (HETMP(I) #I = 1»NHE) 

READ (5.190) (TBURP(I) *I=1»NHE) 

C 

150 IF (MLTIWL .LE.O) GO TO 200 
DO 155 1=1. NQS 

IF (ICW(I) .LT, 0) GO TO 155 
READ ( 5 » 18b ) NSLICE(I) 

K = NSLICE(I) 

DO 153 L = 1»K 

153 READ (5.19b) MATL(L.I) .THICK(L.I) 

THICK (L» I ) = THICK (L. I ) /12. 

155 CONTINUE 

READ (5.190) (WD(I) .1=1.3) 

C 

IF (NRETRC.GT.O) CALL RETIN 
C 

160 FORMAT (5I2.7E10 .2) 

170 FORMAT (2I2,bX.E10.2/(2E10.2) ) 

18o FORMAT ( 2 12/ ( 2£1 0 • 2 ) ) 
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16b Mini* AT <lul2) 

19u FORMAT ( til 1(J 1 4 ) 

195 FORMAT (110, E10.4) 

*** INPUT OF DATA FOR CASE 

20u kEAU (5,210) HEAD 
*KITc ( 6 1 220 ) HEAD 
210 FORMAT (tiAlO) 

220 FORMAT (1m1,24x,32H 5-IV H TANK PRESSURE SIMULATION / 1HQ»8A10/) 
READ (5»CASE) 

GC TO (250,230, 245 ) » ISAVE 
230 PU-PUSAVt. 

TU=TUSAVE 
DO 24 0 1 = 1 , NTDOT 
24 0 1M1) = TNSAVE(I) 

24b 1SAVE=1 

DO TO 270 

250 PINV = l./(P - PHE) 

CALL DrAbL2 <TU,PiNV,UG» TbPGl 1 ) , 1 »NPG, 1,1, IB»TFTG( 1,1) ,TBUG( 1,1), 

* 9*9* NT G ) 

CALL CT AdL<2 UU»P1NV,SV,THPG11) ,1,NPG,1,1,IB,TPTG(1»1) ,TBSV(1,1> , 

* 9»9*NTG) 
call TAPL (PSATL*TL*xPSAT(l) *XTSAT(1) #1,1*1 , nsat* IH) 
call TAPL ( TL * SVLIG * xTSAT ( 1 ) * XSVLIQ ( 1) *1,1,1* NS AT, IB) 
vU = VTOT - XNL*SVLI0 

XVG = VU/SV 

AMHE = PHt *VU* 144 • /KHE/TU 
r M ( 1 ) = X V G*UG 4 XMHt*CVHE*TU 
TM ( 2 ) = X w G 
TM(3) = XMH£ 

TV (4) = XML 
TM(b) = TL 
TV ( 6 ) = 0.0 

IF (IBUPP .GT. 0) GO TO 255 
TV ( 7 ) = PBTL*V8TL/RHt/TBTL/12. 

TM(a) = TBTL 
TV (9) = TBTL 
TMC10) r 0.0 
255 NTOOT = 10 

IF (NOS.LE.O) GO TO 265 
IF ( MlTIWL .GT. 0) GO TO 265 
DO 260 1=1, NQS 
IF ( ICW ( I ) « LT . 0 ) CO |0 260 
NT DDT = imTDOT + 1 
T V ( NT DOT ) = TW ( I ) 

260 CONTINUE 

265 IF (NSETb.LE.O) GO TO 270 
NTUGT = nTUGT + 1 
rV(NTDOT) = 0.0 
27u NEXT = 4 
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IEHROR r 1 

♦** INPUT OF DATA FOR PHASE 

280 READ (5*290) 

WRITE (6*290) 

290 FORMAT ( 80H DUMMY FORMAT FOR INPUT OF TITLE 

* ) 


READ (5. PHASE) 

IFIRST = 1 
TIME1 = TIME 

IF (IFLOW.NE.3) GO TO 300 
MOOT V = 0,0 
MD0TG = 0.0 
MDOTHE = 0.0 

300 IF ( I SPRAY . nE *2 ) GO TO 305 
GGS =0.0 
MDOTS = 0.0 
MDOTSC = 0.U 

30b IF (IMIV.LE.0) GO TO 310 
CALL MIX (TIME,TIMEF»TM) 

IMIX=0 
GO TO 350 

310 GO TO ( 340 * 320 ) » ISAvE 
320 PUSAVE=PU 
TUSAVE=TU 
DO 330 1=1 tNTDOT 
330 TMSAVE(I) = TM(I) 

ISAVE=1 

340 CALL DIFE3 ( DERIV » CNTRL » NTDOT »-l » EPSR » EPSA » TIME , TM »DTIME» TIMEF) 

GO TO ( 350 *370*370)* I ERROR 
350 IF (IPLOT.ST.l) CALL PLOT (TIME»TM) 

GO TO 380 
360 READ (5»PHASE) 

370 IF (NEXT. EG. 4) GO TO 3o0 
380 GO TO (20*40*200*280*390) *NEXT 
390 STOP 
END 

SUdROUTINE DIFE3 ( DErtlW * CNTRL *N* M ,EPSR *EPSA , X , Y , H , XE ) 


THIS SUBROUTINE INTEGRATES A SYSTEM OF FIRST ORDER ORDINARY 
DIFFERENTIAL-EQUATIONS. TO PERFORM A SINGLE STEP OF integration* 
IT USES THE SUBROUTINE *DIFE1*» WHICH USES THE RUNGE-KUTTA-MERSON 
METHOD* ANU PROVIDES AN ESTIMATE OF THE LOCAL TRUNCATION ERROR 
bASED ON THIS ERROR* THE SUBROUTINE ADJUSTS THE STEPSIZE SUCH 
THAT THE TOLERANCES ARE SATISFIED. 

ARGUMENTS.. 
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DERIW 

CNTRL 

N 

M 


tPSR 

EPSA 


A 

r 

i-i 

XL 


DUMMY-NAME fur subroutine FOR COMPUTING the 
DERIVATIVES 

DUMMY-NAME FUR SUBROUTINE FOR PRINTING THE RESULTS 
NUMBER OF EQUATIONS IN THE SYSTEM 
NUMBER OF STEPS BETWEEN TWO CONSECUTIVE EXITS TO 
SUBROUTINE CNTRL 

VARIABLE SPECIFYING MAXIMUM ALLOWABLE RELATIVE 
ERROR (IF NEGATIVE OR ZEPO-STEPSIZE IS NOT CHANGED) 
VARIABLE SPECIFYING MAXIMUM ALLOWABLE ABSOLUTE 
ERROR 

INDEPENDENT VARIABLE 
DEPENDENT VARIABLES (VECTOR) 

STEP SIZE (PUSITIVE OR NEGATIVE) 

FINAL VALUE UF INDEPENDENT VARIABLE 


COMMON /CCIFE/ I£RROR,NGFE 
DIMENSION Y(l) » YL ( 50 ) # ERR (50) » YDOT ( 50 ) 
EXTERNAL DEKIw, CNTRL 


CALL DERIW <X,Y»YDGT) 

CALL CNTRL ( X t Y , YOOT » 0 . 0 ) 

TEST WHETHER BACKWARD OR FORWARD INTEGRATION 
TEST IF INITIAL GUESS OF STEPSIZE HAS CORRECT SIGN 


IF (H) 350 , 290 #10 
10 IF (XE-X) 330 '310*30 
30 MPR = IABS(M) 


STARTING THE INTEGRATION 
70 CALL DIFtl (DERIw*N,0.0*X*Y,tRR) 
bEGIN SEQUENCE OF INTEGRATION 


80 DO 2b0 IPR = 1»MPR 
INC = 1 
DO SO I = 1»N 
90 TL ( I ) = Y ( I ) 

100 CALL DIFtl (DEkIw*N,H,X,Y*ERK) 
IF (EPSR) 230,230*110 


DETERMINATION OF THE MAXIMUM RELATIVE OR ABSOLUTE INTEGRATION 
ERROR, NOFE DESIGNATES EQUATION WITH LARGEST ERROR 

110 GO TO (115* 190,400) » IERROR 
115 ERRM = 0. 

DO 120 I — 1 * N 

ERRA r ABS (ERR ( I ) ) / ( ( ABS ( Y( I ) ) t ABS ( Y ( I ) -YL ( I ) ) ) *EPSR ♦ EPSA ) 
IF (ERRM, GE. ERRA) GO TO 120 
ERRM = ERRA 
NOFE = I 
120 CONTINUE 
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TEST IF STEPSIZE IS APPROPRIATE TO PRESCRIBED MAXIMUM TRUNCATION 
ERROR. (BEFORE INCREASING THE STEPSIZE THE PROGRAM CHECKS WHETHER 
THE STEPSIZE WAS DECREASED IN THE PRECEDING STEP. THIS AVOIDS AN 
UNWANTED DECREASE-INCREASE-DECREASE LOOP. THE PARAMETER INC IS 
USED IN THIS TEST.) 

IF (ERRM.GT , l.U ) GO TO 190 
IF (ERRM.GE..01 ) GO TO 230 
GO TO ( 130 » 230 ) . INC 
130 IF (XE-X) 270*280* 160 
160 H = 2,*H 
GO TO 100 

190 H = H/2. 

IERROR = 1 
INC = 2 

IF (H) 370*370*100 

TEST IF X GREATER THAN UPPER END OF INTEGRATION-INTERVAL 

230 IF (XE-X) 270*280*260 
260 CONTINUE 

SUBROUTINE CNTRL IS CALLED AFTER EVERY M COMPLETED INTEGRATIONS 

CALL DERIW (X*Y,YDOT> 

CALL CNTRL (X»Y,YD0T»H) 

GO TO 80 

FINAL INTEGRATION STEP-STEPSIZE IS DETERMINED SO THAT ENDPOINT 
OF INTEGRATION-INTERVAL WILL BE HIT 

270 CALL DIFE1 (DERIW»N»XE H-X*X»Y»ERR> 

280 CALL DERlw <X»Y»YDOT) 

CALL CNTRL (X*Y»YD0T»H) 

RETURN 

290 WRITE (6*300) 

300 FORMAT (49HPR0GRAM-ERR0P* INITIAL GUESS OF STEPSIZE WAS ZERO) 
RETURN 

310 WRITE (6*320) 

320 FORMAT ( 73HPR0GRAM-ERR0R * INITIAL AND END-VALUE OF INTEGRATlON-INT 
1ERVAL ARE THE SAME) 

RETURN 

330 WRITE (6*340) 

340 FORMAT ( 63HPROGRAM-ERROR * POSITIVE STEPSIZE BUT X-END SMALLER THAN 
1 X-BEGIN) 

RETURN 

350 WRITE (6*360) 

360 FORMAT ( 31HPR0GRAM-ERR0R 'NEGATIVE STEPSIZE ) 

RETURN 

370 *RITE (6*380) 

380 FORMAT (39HPR06RAM ERROR, STEPSIZE REDUCED TO ZERO) 
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4 Oil RETURN 
END 

SUBROUTINE 0IFE1 (DERlw»N*H,X*y,ERR) 


THIS SUPROUTINl PERFORMS ONE STEP OF INTEGRATION BY THE 
PERSONS MODIFIED RUNGE-KUTTA METHOD. IT USES FIVE SUBSTITUTIONS 
INTO THE OIFFERENTIAL-EUUATIONS AND GIVES AN ESTIMATE OF THE 
LOCAL TRUNCATION ERROR* WHICH CAN BE USED FOR THE ADJUSTMENT 
OF THE STEP-SUE 

OERIW = DUMMY-NAME FOR SUBROUTINE FOR THE EVALUATION 

OF THE RIGHT HAND SIDES OF THE DIFF .-EQUATIONS 

N = NUMBER OF THE EQUATIONS IN THE SYSTEM 

H = STEPSIZE 

X = INDEPENDENT VARIABLE 

Y(I) = DEPENDENT VARIABLE 

ERR ( I ) = LOCAL TRUNCATION ERROR 

THE COMPUTED VALUES OF X AND Y ARE SAVED IN DOUBLE-PRECISION 
FOR THE USt AS INITIAL-VALUES IN THE NEXT STEP 

EACH TIME WHEN A NEW INTEGRATION SEQUENCE IS STARTED* THE 
SUBROUTINE MUST BE CALLED WITH H=0 AND THE INITIAL-VALUES OF X AND 
Y ( I ) . 

THE SUBROUTINE TESTS IF THE VALUE OF H IS THE SAME AS IN THE 
PREVIOUS STEP 

IF YES.. IT COMPUTES THE NEW STEP WITH THE X ANO Y-VALUES 
AT THE END OF THE LAST STEP 

IF NO.. IT COMPUTES THE NEW STEP WITH THE X AND Y-VALUES 
AT THE BEGINNING OF THE LAST STEP 

TO REDUCE THE ROuND-OFF ERHOR»DOUBLE -PRECISION IS USED IN 
INCREMENTING THE DEPENDENT AND THE INDEPENDENT VARIABLES 


COMMON /CD1FE/ IERROR*NOFE 

DIMENSION Y C 1 > , ERR < 1 > » Y Y ( 50 ) * PI ( 50 > »P3£50) *P4 < 50 ) * P5 * 50 ) » 
1 YLDP ( 50 ) * YZDP ( 50 ) 

DOUBLE PRECISION XLDP * YLDP » YZDP » DUDP * HOP » XZDP 
EXTERNAL CERIw 

IF { H ) 10*20*10 
10 IF (H-HO) 40*60*40 

*** STORE INITIAL X AND y 

20 XLDP=DBLE(X) 

DO JO 1 = 1 * N 
30 YLDP l I )=Dr<LE ( Y (I) ) 
hO = 0.0 
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*** RESTORE X AND Y 

40 DO 50 I=1*N 

50 Y ( I ) -SN6L (YLDP(I) ) 

X = SNGLIXLDP) 

HO = H 
H2 = H/2. 

H3 = H/3. 

H6 = H/6. 

Hfl = H/8. 

H15= H/15. 

HOP = DBLE(H) 

GO TO ao 
60 DO 70 I=1*N 
70 YLDP ( I )rYZ0P ( I ) 

XLDP=XZDP 

*** PERFORM ACTUAL INTEGRATION 

80 CALL DERIW (X*Y»P1) 

GO TO (85*135*135) t I ERROR 
85 DO 90 I=1»N 
90 YY ( I ) = Yd) ♦ PI ( I ) *H3 
XX=X - H3 

CALL 6ERIW (XXf YY»P3) 

GO TO (95*135*135) * ItRROR 
95 DO 100 1 = 1 *N 

100 YY ( I ) = Yd) ♦ (Pld)4P3(I))*H6 
CALL DERIW (XX»YY »P3) 

GO TO (105*135*135) » IERROH 
105 DO 110 1 = 1 * N 

P3 ( I ) = P3 ( I ) *3« 

110 YY(I) = Y(I) ♦ (P1(I)+P3(I) )*H8 
XX = X * H2 
CALL DERIW (XX*YY*P4) 

GO TO (115*135*135)* IERROR 
115 DO 120 I=1*N 

P4(I) = P4(I) * 4. 

120 YY(I) = Yd) ♦ (Pld)-P3d)*P44l> )*H2 
XX = X+H 

CALL DERIW (XX»YY*P5) 

GO TO (125*135*135)* IERROR 
125 DO 130 1 = 1 * N 

«** INCREMENT DEPENDENT AND INDEPENDENT VARIABLES 

YZDPd) = YLDP(I) ♦ UBLEdPld) * P4CI) * P5(I))*H6) 

Y(I) = SNGL (YZDPd) ) 

130 ERR ( I ) = (Pl(I) - P3 ( I ) + P4(I) - (P3(I) -*• P5(I))/2.) * H15 
XZDP = XLCP ♦ HOP 
X = SNGL (XZDP) 

135 RETURN 
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SUBROUTINE DERIV (TIME»TM,TMUOT) 


DIMENSION TM(99) »TMD0T199) »AWLL(2) 




real 

MDOTL 

,MID0T8P 

,mdote 

,MDOTV »mdotg 

, mdothe 

, MOOTFF 

, moots 

♦ 

MDOTSO 

,MBTL 

, MDOTET 

,MDOTRS»LEFF 

,Mw 

, MDOTC 

»MDOTE2 

REAL MDOTLT 







real 

MP0Tt3 







COMMON 

/CMAIN/ 






♦ 

AOTOT 

,aogas 

,al 

,AWLL r ABTL 




♦ 

CD 

»CV 

,CP 

,CVHE »CPHE 

* CL 

»CBTL 

» 

* 

CONULG 

,C0NTV 

» CONSAT 

,CONQSP» 




* 

DEADWT 

,DTIME 

,DTTOL 

,qpvary» 




* 

EPSP 

, EPSP 

, EPSA 

,P »FQLI0 

,FMDOTS 

» G 

» 

♦ 

HFG 

, HAMS 

, HEUSE 

,HBTL t HW 

t hl 

, 


* 

IFLUw 

, IFLOwl 

, ISPRAY 

,il r 12 

,icpv 

»ISAVE 

» leff , 

* 

MDOTL 

,MDOTBP 

, MOOTE 

, MDOTV rMDOTG 

, MpOTHE 

,MQOTFF 

, MOOTS 

♦ 

MDOTSO 

, MBTL 

, MDOTET 

,mdotrs»ntdot 

, 



♦ 

P 

, P0TL 

, PCP ACK 

, PRESET fPFFLOW 

» PR 

,P1 

,PINv 

♦ 

PVAKYO 

» PMAX 

, PMIN 

,PCON , 




♦ 

QGS 

rUPHE 

,QBP 

, UWL » QWG 

,QGL 

, 


♦ 

PhCL 

, RHOG 

, RHE 





* 

SV 

, SVSAT 

rSVVNT 

,SLL » SIGN 

, STOP 

» SVLIO 

» 

* 

TU 

r rui 

,TSAT 

, 1 VNT t TIMES 

, TMES2 

»TIME1 

, 

* 

uu 

rUGSAT 

, UGVNT 





* 

VTOT 

, VL 

,VU 

»VU1 t VBTL 

, 



♦ 

V-KATIO 

,X 






COMMON 

/heat/ 







* 

NOS 

, IOW ( 30 

) , ICW 

(30) , IFLUX 130 ) , I AW ( 30 ) »FMISS<30) 


,SBOTS(30> »UW(30) »TW ( 50 ) ,MW<30) »CW<30) , 

» ATOP ( 30 ) , AW ( 30 ) »NQW<5) , TBTQ < 30 , 5) ,T6<5 < 30 , 5 ) » 


» TBCW (30,3) 
»TBA(90,2) 


»OTQ ( 5 ) 


* STOPS (30) 

* FAW ( 30 ) 

* NCW ( 3 ) ,TBTCW (30,3) 

* NAw(2) , TBS A { 90 » 2 ) 

COMMON /TABLE/ 

* NPG»NTG,TBPG(9) , TBTG <9i 50 ) » TBSV< 9, 50 ) »TBUG (9 , 50 ) , 

* MS AT , XPSAT ( 10 ) rXTSATilO) ,XSVSAT(lO) »XUGSAT(10)» 

* XHFG(IO) rXSVLlOUU) »NVOL »TBHVOL ( 110 ) »TBVOLU10 ) , 

* NV£NT»XPVENT(10) ,XMVENTU0) ,NS ,XTIMES<20) »XMDOTS(20) 

*, T tiTKw (10,3) »TBKW(10,3) ,NKW(3) 

COMMON /S4HEAT/ 

* MLTIwL ,MATL(7»12) »NSLICE(12) » THICK (7 » 12) »WOt3) 


OMMON /S4MAIN/ 

XRtCXH(50) »XDEuH(50) 
NRe. , CONFAC 

KRfcXlR , UlREC 


#KETIME450) »RECIRC , DELH 
» 1RECIR » TB I , MDQTE3 

fMDOTC 


COMWON/PURP/ 

* IPUI-P ,NHE 

* KRUHP , PHE 


rMEFLO ( 50 > , HETMP ( 50 ) ,TBURP (50), 


lOMmON /CMtHO/ N.mERO,NSETS,NSET( 2) »INERO(30) , PRATE 
COMMON /CTEMP/ CONdRP,CONUBO»SBOT 
COMMON /CTEVPl/ IRETkO,XMPULL 


DIF1103( 
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COMMON /CT£MP2/ PSAT»MD0TE2»PVLlQ»QV#QVL»QVGrPVAP 
COMMON /COIFE/ IERROr.NOFE 

*** MISCELLANEOUS INITIALIZATION 


IF (TIME. 6E. TIMED GO TO 10 
PINV = PI 
TU = TUI 
IFLOM = IFL0W1 
10 TIME1 = TIME 

CALL TABL <TM (b ) t SVLIQ» XTSAT ( 1 ) » XSVLIQX 1) » 1 » 1 » 1 »NSAT » IB) 

VL = TM(4)*SVLIQ 

VU = VT0T " VL 

RHGG = (TM(2> ♦ TM(3))/VU 


*** ITERATION FOR ULLAGE PRESSURE AND TEMPERATURE 


II = II - 1 

20 12 = 12 t 1 

IF (12/11. GT. 200) GO TO 950 

IF (PINV. CT.PMAX. OR. PINV. LT.PMIN) GO TO 900 

CALL DT ABL2 ( TU > PI NV » UG , TBPG ( 1 ) , 1 ,NPG» 1 , 1 » IB r TBTGI 1» 1 ) , TBUG < 1 , 1 ) , 

* 9»9»NTG) 

CALL DTABL2 ( TU t PINV » SV » TBPG ( 1 ) » 1 ,NPG» 1 , 1 * IB » TBTGI 1 » 1 ) t TBSV ( 1 » 1 ) , 

* 9»9»NTG) 

VUP = TMi2)*SV 

TUP = TU 

TU = TU -r ( TM ( 1 ) - TM(2)*UG - TMt 3 > *CVHE*TU) / (TM( 2 > *CV»TM ( 3) *CvHE) 
PINV = PINV*(TUP/TU)*(VU/VUP) 

IF (ABS(TUP-TU) .GT.EPSP*TU.OR.ABS(VUP-VU) .GT.EPSP*VU> GO TO 20 


CALL DTABL2 

* 

CALL DTABL2 

* 


( TU» PINV » UG » TBPG ( 1 ) 
( TU »PINV » SV r TBPG( 1 ) 


1 »NPG» 1»1»IB»TBTGC1»1) . TBUG ( 1 » 1 ) 
9»9»NTG) 

1»NPG»1»1»IB»TBTG<1»1) ,TBSV(1»1) 
9»9»NTG) 


PVAP 
PHE 
P = 

psat 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


= 1./PINV 

= TMi3)*RHE*TU/Vu/144. 

PVAP 4 PHE 
= P - CONSAT*PHE 
TABL (PSAT»TSAT rXPSAT(l) 
TABL (TM(5) »PVLIO »XTSAT( 
TABL (PVLIG»HFG ,XPSAT(1 
TABL (PVLIO#SVSAT rXPSAT (1 
TABL ( PVL IQ » UGSAT » XPSAT ( 1 
TABL (PVAP ,TSAT2»XPSAT(1 


PCON = PVLlQ*144./77tt. 
HGSAT = UGSAT ♦ PCON*SVSAT 


»XTSAT(1) 
1) » XPSAT < 
) »XHFG(1) 
) »XSVSAT( 
) ,XUGSAT< 
)» XTSAT (1 


1) 

1) 

1) 

) 


1 » 1 » 1 » NSAT » IB ) 

. 1 . 1 * 1 r NSAT » IB ) 
»1»1»1»NSAT»IB) 
»1#1»1»NSAT»IB) 
»1»1»1»NSAT»IB) 
» 1 » 1 » 1 »NSAT » IB) 


» 


i 


*** EVALUATION OF LIQUID BOIL-OFF AND VAPOR CONDENSATION RATES 


IF (TM(5) .LE.TSAT) GO TO 30 
MDOTE = TM(4)*CL*(TM(5)-TSAT)/HFG/DTT0L 
GO TO 40 
30 MDOTE = 0.0 
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4U IF (TU.GE.TSAT2) GO TO bO 

MOOTC = TM<2)*CV*(TSAT2-TU)/HFG/DTT0L 
oO TO 60 
5U MOOTC = u . (J 

*** EVALUATION OF VENTINu *ATt 

60 GO TO (80»9U»1S0»70» 14D) r IFLOw 
7u CALL VENT (TM,TMD0D 

GO TO (6U»9u»120»15U»l2b) » IFLOW 
80 IF (P.LT.PCKACK) GO TO 14U 
IFLOW = 2 

90 IF (P.LE.PKLSET) GO TO 13U 
TVNT = TU ♦ C0NTV*(Tu - TSAT) 

IF (NVENT.LE.O) GO TO 100 

CALL TAPL (P»MD0TV»XPVENT(1)»XMVENT(1) *1»1»1»NVENT» 16) 

GO TO 120 

100 IF (P.GE.PFFLOw) GO TO 110 

MOOTV = iMDOTRS ♦ < MQOTFF-MDOTRS ) * tP - PRESET )/ (PFFLOw - PRESET)) 

* *SQRT(45./TVNT) 

GO fO 120 

110 MOOTV = MC0TFF*(P/PFFL0W)*SQ«T*45./TVNT) 

120 N.DOTG = MCOTV*TM(2)/(TM<2) + TM(3)) 

MDOTHE r MOOTV - MOOTG 

125 CALL DT AtiLZ ( TVNT » P I NV » UGVNT * T8PG ( 1 ) » 1 » NPG »l*l»Ib»T8TG{l*l)» 

* TBUGUrl) »9,9»NTG) 

CALL DTAt>L2 ( TVNT » P InV t SVVNT » TBPG ( 1 ) » 1 » NPG »1*1*IB»TBTG(1»1)» 

* TBSV ( 1 » 1 ) »9»9»NTG) 

GO TO 150 
130 IFLOW = 1 
140 MOOTV = O.U 
MOOTG = O.U 
MDOTHE = 0.0 

*** OE TERMINATION OF RETROMANtUVER FLOW RATE 

150 IF ( IRETRO.LE.U) GO TO 158 

IF (TM(4) .LT.XMPULL) C-0 TO 154 
CALL RETRO ( P,TU» MDOTL » F , 1 ) 

GO TO 158 

154 CALL RETRO (P,TU*MD0TG»F,2) 

SVVNT = S V 
UGVNT = UG 
MDOTL = 0. 

*** INITIALIZATION FOR COMPUTATION OF HEAT INPUTS 

158 CALL TABL (VL»SLL»TBV0L(1) »T8HV0L{1) »1»1»1»NV0L»IB) 

IF (N3S.LE.0) GO TO 310 
UO 160 1-1*2 

160 CALL TABL (SLL> AwLH 1 ) » TBSA ( 1 , 1 ) , TBAU , I ) , 1 , 1 1 1 »NAW II ) , IB) 

LEFF = 1 • / ( 12 •/ (SLL-STOP ) - 1./21.6) 

NTUCT1 = 10 
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QWG = 0,0 
w WL • 0,0 

IF (NSETS.LE.O) GO Tu 200 
CALL STNER0 (TIME.TM(NTOOT) ) 

TMDOT(NTDOT) = RRATE 

*«* SUMMATION OF HEAT INPUTS TO PROPELLANTS FROM TANK WALLS 

200 DO 300 Isl.NQS 

IF (lGW(I).EQ.O) GO TO 260 
IF < INERO(I) .GT.U) GO TO 260 
K = I QW { I ) 

CALL TABL (TIME#OTQCK) »QW C I ) . TBTQ 1 1 » K ) , TB<M 1 »K ) . 1 » 1 » 1 .NOW <K ) , IB) 
QW(I) S UW(I)*FAW(I) 

260 K = IAW(I) 

PART = (ATOP ( I ) - AWLL(K) )/AW<I) 

IF (PART. GT, 1,0) PARTS1.0 
IF (PART, LT. 0.0) PART=0.0 
IF (ICW(I) ,EO. 2) <30 TO 265 
GO TO 270 

265 OG = PART * QW(I) 

GL = Qw ( I ) - OG 
GO TO 290 

270 IF (MLTIWL ,LE. 0) GO TO 275 

CALL TIKWAL ( TM , TMDOT . OG , QL .NTDOTl . LEFF , I .PART »TU) 

GO TO 290 

275 NTOOT = NTDOTl + 1 

CALL FCONV (TM( NTDOTl) .HW.LEFF.l) 

OG = PART*HW*FAW(I)*(TM(NTD0T1) - TU)/3600. 

QL = (1. - PART)*QW(I) 

ORERAD r PAKT*0 . 1714E-8*FAW ( 1 ) *EMISS< I ) *TM (NTDOTl ) **4/3600. 

IF (ICW(I).EQ.O) GO TO 280 
K = ICW(I) 

CALL TABL (TM (NTDOTl ) »CW( I ).TbTCW(l»K)»TPCW(l»K) .1.1.1. NCW(K) , IB) 
280 TMOOT(NTDOTl) = (QW(I) - QG - QL - QRERAD) /MW ( I ) /CW (,1 ) 

290 QWG - QWG ♦ QG 
300 OWL = OWL * QL 

310 CALL FCONV (TSAT.HL.21,6.2) 

QGL = CONQLG*HL*AL*(TU - TSAT)/3600, 

*** ESTIMATION OF HEAT TRANSFER TO SPRAY IN ULLAGE 

GO TO (320.360) . ISPRAY 

320 CALL TABL(TIME-TMES2 .MUOTS , XTIMES(l) .XMOOTSU) .1.1.1. NS. IB) 

CALL TABl(TIME-TMES 2-TIMES»MU0TS0,XTIMES(1) .XMDOTSil) .l.l.l.NS.IB) 
MOOTS = FMUOTS*MDOTS 

TERM si.- HAMS* (TU-TSAT)*T IMES/3600 , /2. 14/HFG 
IF (TERM) 340.340.330 
330 MDOTSO = FMD0TS*MD0TS0*TERM**2, 14 
GO TO 350 
340 MDOTSO s 0.0 

350 UGS = TMib)*HAMS*(TU - TSATJ/3600. 


A-22 



non n no non non 


36u IF ( IBURP .LE. 0) SO TO 361 


*** HELIUM ADDITION LOOK-UP 

IF (KBURP .LE. 0) SO TO 364 

CALL TAPL ( T IME+DTHE . MDOTBP. TBURP ( 1 ) . HEFLO ( 1 ) . 1 . 1 . 1 »NhE » IB) 
CALL TAPL (TIME+DTHE.THEIN , TBURP ( 1 )» HETMP ( 1 ). 1 . 1 , 1 » NHE. IB ) 
PHEL = P - PVLIQ 

IF (PHEL .LT. 0.001*P) PHELs 0.001*P 
PART = CQNBRP * (RHE*TM(5)/PHEL/144. l/SVSAT 
MD0TE2 = MDOTBP * PART 
SO TO 364 

*** DERIVATIVES OF HELIUM BOTTLE CONDITIONS 

361 PBTL = 12.*TM(7)*RHE*TM(8)/VttTL 
DMDA = 0.210*CD*PBTL/SORT(TM<8) ) 

AOVARY = AOGAS* ( PV ARyO— P ) /UP VARY 
IF (AOVAKY.LT. 0.0) AQVARY=O.U 
IF ( AOVAKY.ST.AOGAS) aovary=aogas 

PHEL = P - PVLIQ 

IF (PHEL.LT.0.O01+P) PHEL = U.001*P 
PART = C0NBKP*(RHE*TM(5)/PH£L/144. )/SVSAT 
AOVARY = A0VARY/(1. t PART) 

MDOTBP r DMDA* ( AOTOT-AOGAS-AOVARY ) 

QBHE = HBTL*APTL*(TM(9)-TM(8))/3600. 

TMDCT (7) = -MDOTBP - HEUSt 

TMQOT ( 8 ) = (QBHE - MQOTBP*RHt*TM( 8 ) /778 , ) /TM ( 7) /CVHE 
TMUOT (9) = -QBHE/MBTL/CBTL 

MDOTBP r DMQA*AOVARY 
MDOTE2 = MDOTBP*PART 

CALL HETEMP (MDOTBP. TM(8) .CONQSP.SLL.THEIN) 

*** DERIVATIVES OF TANK CONDITIONS 



364 IF ( CONGBC .LE. 0.0) GO TO 365 

DTLMAX = COnQBO*QWL** 0 • 714/ (bBOT-SLL) **0.857/G**0,286 
FQLIQ = (TSAT - TM ( 5 ) ) /PTLMAX 
IF (FOLIO. LT. 0.0) FQlIQ = 0.0 
IF (FQLIQ. ST. 1.0) FQLIQ = 1.0 

365 IF (KRECIR .LE. U) GO TO 370 

CALL TAPL ( T IME+TBI . REC I RC » RtTIME ( 1 ) » XREC IR ( 1 ) » 1 . 1 . 1 » NRE » IB ) 

CALL TAPL (TIME+TBI.uELH . RETIME ( 1 ) . XOELH ( 1 ) » 1 . 1 » 1 »NRE» IB) 
QLREC = CCNFAC*RECIRC*DELH 
MDOTE3 = (1.-CUNFACUDELH/HFG 

370 MDOTET = MUOTE + QGS/HFG <■ X*VDOTS * ( 1 . -FQLIQ) *QWL/HFG ♦ MQOTE2 
* 4 MD0TE3 

MDOTLT = MUOTL * MQOTET - MQOTC 
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TMDOT(l) 


* 

* 

* 


= QWG - QGL - QGS - MD0TLT*SVLIG*P*144./778. 

4 MDOTET* (UGSAT * PCON*SVSAT) * MDOTBP*CPHE*THEIN 

- MDOTG*(UGvNT ♦' PCON*SWNT) - MDOTHE*CPHE*TVNT 

- MOOTC*(UGSAT V PCON*SVSAT - HFG) 


IF (ICPV.6T.0) CALL CPVENT (TM, TMDOT) 

TMDOT (2) = MDOTET - MDOTG - MOOTC 
TMDOT (3) = MDOTBP - MDOTHE 
TMDOT (4) = -MDOTLT 

TMDOT (5) = (GWL + QGL * QBP + QGS 4 QLREC 
* - MOOTET*HFG + MDOTC*CL*(TSAT - TM(5) ) )/TM^4)/CL 

TMDOT (6) = (1. - X ) * ( MOOTS - MQOTSO) - QGS/HFG 
TMDOT (10) = MDOTV 
800 RETURN 


*** STEPS TO ATTEMPT RECOVERY FROM UNSTABLE INTEGRATION OR ITERATION 


900 IF (P1.LT.PMIN.0R.P1.GT.PMAX) GO TO 950 
IERROR = 2 
GO TO 600 
950 IERROR = 3 

WRITE (6.902) IERROR >NOFE» TUP »TU» VUP» VU»EPSP#PINV»PMAX,PMIN»UG#SV» 

* TM(2) 

902 FORMAT (* IERR0R=*I2 ♦ * N0FE=*I3»* TUP**E13.6»* TUs*E13.6, 

* * VUP=*E13.6»* VUSw»E 13,6»* EPSP**E13.6f /* PINVS* 

* E13«6»* PMAX=*E13.6»* PMINs*E13.6»* UGs*El3.6 > 

* * SV=*E13.6»* TM<2)=*E13.6> 

GO TO 800 

END 

SUBROUTINE CNTRL ( T I ME ♦ TM ♦ TMDOT ♦ DT IME ) 


DIMENSION TM(99) ♦TMDOT (99) ♦ 

AWLL(2) 



REAL 

MDOTL 

♦MDOTBP 

♦MDOTE 

»MDOtV ♦ MDOTG 

t MDOTHE ♦ MOOTFF t MOOTS 

♦ 

MDOTSO 

♦ MBTL 

♦ MDOTET 

rMOOTRS#LEFF 



real 

MD0TE3 






COMMON 

/CHAIN/ 





♦ 

AOTOT 

♦ AOGAS 

»AL 

»awll ♦ abtl 

f 


* 

CD 

♦ CV 

♦ CP 

♦ CVHE ♦ CPHE 

t CL 

♦cbtl ♦ 

♦ 

CONQLG 

♦CONTV 

t CONSAT 

♦CONQSP ♦ 



♦ 

DEAOWT 

♦DTIME 

♦DTTOL 

»UPVARY» 



♦ 

EPSP 

»EPSR 

♦ EPSA 

♦ F ♦FQLIQ 

#FMDOTS»G ♦ 

♦ 

HFG 

♦ HAMS 

♦ HEUSE 

♦ hbtl ♦ hw 

»HL 

♦ 

♦ 

IFLOto 

♦ IFLOW1 

♦ ISPRAY 

♦ 11 1 12 

»ICPV 

♦ISAVE ♦LEFF 

* 

MOOTL 

♦MDOTBP 

♦MDOTE 

t MDOTV t MDOTG 

♦ MDOTHE rMDOTFFr MOOTS 

♦ 

MDOTSO 

♦ MBTL 

, MDOTET 

»MDOTRS»NTDOT 

» 


♦ 

P 

♦ PBTL 

♦ PCRACK 

♦ PRESET ♦PFFLOW 

♦ PR 

♦PI ♦PINv 

♦ 

PVARYO 

♦ PMAX 

♦ PMIN 

♦ HCON ♦ 



* 

QGS 

♦ QBHE 

♦ QBP 

♦QWL ♦ QWG 

♦ QGL 

♦ 

* 

RHOL 

♦ RHOG 

♦ RHE 

# 



♦ 

SV 

»SVSAT 

♦ SVVNT 

#SLL ♦ SIGN 

♦ STOP 

♦SVLIQ ♦ 

* 

TO 

♦ TUI 

»TSAT 

♦ TVNT ♦TIMES 

♦TMES2 

♦TIME1 ♦ 

* 

UG 

♦ UGSAT 

♦ UGVNT 

t 



* 

VTOT 

♦ VL 

♦ vu 

♦ VUl ♦ VBTL 

♦ 


* 

WRATIO 

♦ X 





COMMON 

/table/ 





♦ 

NPC-»NTG»TBPG( 

9) »TBTGC9»50) »TBSV(9»50) » 

TBUG^9,50) ♦ 
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c 


c 


c 


c 

c 


c 


c 


c 


* NSAT , XPSAT ( 10 ) »XTSAT410) ♦XSVSATilO) »XUSSAT|10)» 

* XHFG(IO) , XSVLIQ ( 10 ) ♦ NVOL ♦ TBHVOH 110 ) ♦ TByOU 110 ) ♦ 

* NVENT,XPVENTUO) rXMVENT(lO) »NS *XTIMES<20) »XMDOTS(20) 

*t TBTKto ( 10 » 3) ♦TBKW<10,3) , NKW(3) 

COMMON /S4MAIN/ 


* 

XRECIK(50) ,XDELH(50) 

»KETIME(50) 

,RECIRC , OELH 

f 

♦ 

NRE 

,CONFAC 

♦1RECIR 

♦ T8I , MD0TE3 » 

♦ 

KPECIR 

t OLRtC 

, MDOTC 



COMMO.m/FuPP/ 





♦ 

IPURP 

,NHE 

»HEFLO (50) 

#H£TMP ( 50 ) , TBURP 

(50) , 

* 

KRUPP 

,PHE 




COMMON /CVtNT/OL ♦ DO 

♦ AT ♦ AC 

,FRICTN»GAM 

♦line , 

♦ 

MO 

♦ MC »MT 

» a I ,PT0 

,PTS ♦ POO 

♦ POS , 

* 

FPO 

♦ FPT ♦ PCO 

»PI0 ♦ AE 

,KBUG » ME 

♦ ISP , 

* 

PCS 

»DPENT , PTANK 

♦ 1FIRST » IPRINT»FMIN 



COMMON /CPLOT/ IPLOT, NPLOT(ti) 

COMMON /CTEMP2/ PSAT»M00TE2»HVLI0#QV»QVL»QVG»PVAP 

COMMON /CCIFE/ I£RROR,NOFE 

REAL MC »M0 #MT ♦ LINE ♦ ISP ,ME 

REAL MD0TE2 

REAL MDOTC 

12 = (12 + 11/2) /II 
II = 11/5 

WRITE (6*10) I2»IlrN0FE»TIME»P,TU,TSAT,0WLf0WG»SLL»VU,PBTL»MD0TE» 

* PV AP t PHE » UG ♦ MOOTC , MD0TE2 ♦ MD0TE3 , GLREC * 

* ( T M ( I ) » I = 1 f 1 0 ) ♦ (TMDOT(I) 


IF (NTDOT.GT.10) WRITE (6»20) (TM ( I ) , IsU , NTOOT) 


GO TO (4*2) ♦ I PR I NT 

2 WRITE <G»4U) PCO»PCS»PIO»POOfPTOrDPENT»PTANKfF»ISP 


4 CALL DTABL2 (TU+0.5 

* 

CALL DTAt>L2 (TU*0.5 

* 

CP = ( ( UG2 - UG) ♦ 
CV = ( UG2 - UG ) / 


r PINV»UG2»T8PG( 

♦ PINV »SV2»T8P6( 

(PVAP*144t/778. 

0*5 


1) ♦ 1»NPG,1*1* 
TBUG( 
1 ) ♦ 1 »NPG» 1 ♦ 1 * 
TBSV ( 
)*(SV2 - SV)) 


I8,TBTG(1»1) , 
1»1) »9,9»NTG) 
Ib,TBTG«l»l) » 
1#1> »9 r 9»NTG) 
/ 0.5 


11 = 0 

12 = 0 

PI = PINV 
TUI = TU 
IFLOwl = IFLOw 

IF (IPLOT.GT.O) CALL PLTSAVE (TIME»TM) 
RETURN 


10 FORMAT (///IX >I2»lH/»U»lH/» II » 

♦ 2X * 4HT IME # 5X ♦ 8HPRESSUKE , 5X , flHTEMP-ULL ♦ 5X , 8HSAT-TEMP , 

♦ 5X ♦ 8HQ— LIQUID , 7X ♦ 5HQ—ULL# 4X ♦ 1 1HL/L STATION, 5Xt 7HULL-V0L» 

♦ 5X » OHP— HE BTL»4X»9HMD0T-EVAP / 10F13.5/ 
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C 


* 1 flX 1 9HPRESS- V AP , 4X # 8HPRESS-HE » 5X » 5HU- V AP » 8X > 5HMD0TC * 8X » 

* 6HMOOTE2»7X»6HMQOTE3f 7X»9HQ-REC-LI0 /13X»7F13,5// 

* 3X » 1 OHULL-ENEKGY » 4 X » 9HMASS-FUEL 1 6 X » 7 HMASS-HE » 

* 5Xf8HMASS-LIQ»5X»8HTEMP-LI0»3X»10HMASS-SPRAYf4X»9HHE IN BTL 

* 6X f 7HTEMP-HE » bX » 8HTEMH-BTL » 3X » 1 1HMASS VENTED/t 10F13.5 )) 

20 FORMAT (13H0KALL TEMPS =»9F13.6/(10F13.6) > 

40 FORMAT </10X,3HPC0»10X»3HPCS»10X»3HPI0»10X»3HPO0»l0X»3HPT0» 

* 8X 1 5H0PENT » 8X , 5HPTANK 1 12X » 1HF » 10X » 3HISP/ Cl 0F1 3 . 6 ) ) 

END 

SUBROUTINE TIKWAL (TM»TMDOT,«G,QL>NTDOT1 »LEFF,I »PART»TU) 

DIMENSION TM(99) »TMD0T<99) 


COMMON /HEAT/ 

* NQS t IQW ( 30 ) » ICMC30) »IFLUX*30> , IAWf30> »EMISS(30), 

* STOPS ( 30 ) t SBOTS ( 30 ) >«W#30) ,TVf<50) ,MW<30) »C*i30) , 

* FAW ( 30 ) * ATOP ( 30 ) »Aw(30> »NQW<5> >TBTG<30»5) #TBQ(30,5) # 

* NCW (3) ,TBTCW(30»3) »TBCWI30,3) »DTQ(5)* 

* NAW ( 2 ) t TBSA ( 90 r 2 ) »TBAI90»2) 

COMMON /TABLE/ 

* NPG»NTG»TBPG<9> »TBTGC9»50) #TBSV(9»50) #TBUGC9#50) » 

* NSAT » XPSAT { 10 ) #XTSAT*10) »XSVSAT<10> *XUGSAT|10) » 

* XHFG(IO) »XSVLIQ(10) »NVOL #TBHVOUHO) »TBVOUllO) # 

* NVENT t XPVENT ( 10 ) » XMVENT ( 10 ) r NS ,XTIMES<20) #XMDOTS(20) 

* t TBTKW(10»3> rTBKWXlOri) ,NKW(3) 

COMMON /S4HEAT/ 

* MLTIhL ,MATL<7,12) *NSLICE{12) ,THICK(7,12) #WDi3> 


THICK WALL HEAT FLOW — STARTS WITH EXTERIOR SKIN SECTION 


K = NTDOT1 1 

OREAD = 0.1714E-8*AW(I)*EMISS(I)*TM(K)**4 
GIN = QWII)*3600. - GRERAU 
J = 1 
L = 1 

CALL TABL (TM(K)fWKl»TBTKWCl»J>,TBKW(l»J)»l»l»l»NKW(jJ)rIB) 

M = MATL(L*1» I ) 

CALL TABL < TM (K*l ) , WK2 »TBTKw ( 1 »M) ,TBKW«1 1 J) 1 1 » 1 * 1 »NKW ^M) , IB) 
R = (THICK ( L r I ) /WK1 + THICK ( L+l » I ) /WK2 ) /( 2.* AWfl ) ) 

GOUT = UM(K)-TM(K*1) )/R 

CALL TABL (TM(K)tCPW # TBTCW(1»<J) »TBCW(1» J) » 1 » 1 » 1 » NCW (J) »IB) 
TMDOT(K) = (QIN - GOUT)/(AW(I)*THICKtL#I)*WD(J)*CPW)/3600. 

INTERMEDIATE WALL SLICES —HEAT FLOW 

N= NSLICE(I) - 1 
DO 10 L=2»N 
K = Kfl 
GIN = QOUT 
J = MATLILfI) 

CALL TABL ( TM (K ) » WK1 , T8TKW ( 1 1 J) , T8KW ( 1 1 J) # 1 * 1 t 1 »NKW IJ) t IB) 

M = MATL(L*1»I) 

CALL TABL (TM(K*1> » WK2 » TBTKW d » M) »TBKWd» J> »1»1»1»NKW(M)»IB) 
H = (THICK ( L» I ) /WKI + THICK (L+l » I ) /WK2 ) / ( 2» * AW(I ) ) 

GOUT = (TM(K)-TM(K4l) )/R 
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call TABL (TM(K)rCPw , TBTC* (1 , J) ,TBCW< 1 * J ) , 1 , 1 * 1 » NCW ( J ) , IB ) 
10 IML)OT(K) = (QIN - GOUT) / ( Aw ( 1) *THICK (L » I ) *WD( J) *CPW ) /3600 . 

INTERIOR SECTION 

K=K*1 

L=L+1 

GIN = GOUT 

CALL FCONV ( TM ( K ) » HW , LEFF* 1 ) 

J = MATLIL*!) 

CALL TARL (TM(K) , WK1 * T8TKW ( 1 , J) ,TBKW(lrJ) » 1 # 1 » 1 » NK W t J ) ,IB) 

R = (THICK (L»I)/WKl)/(2»* AW(I)) 

RC = R ♦ l./(HW*A#(I) ) 

GG = PART*(TM(K)-TU)/PC 

GL = (l.-PART)*(TM(K)-TR(5) )/R 

GOUT — 06 ♦ QL 

CALL TAEL (TM(K),CPW # TBTCG ( 1 , J) ,TBCW<1 » J) , 1 , 1 * 1 # NCw ( J) , IB ) 

TMQOT(K) r (QIN - GOuT ) / t AW ( I ) *THICK (L » I ) *WD ( J) *CPW ) /3600 . 

NTU0T1 = K 

RETURN 

END 

SUBROUTINE FCONV ( TSuRF t HSURF » XL * IEQNS ) 

DIMENSION A*LL<2) 


real 

MDOTL 

»MDOTBP 

* mqote 

#mdotv 

»MDOTG 

*mdothe 

* mdotff»mdots t 

* 

MDOTSO 

*MBTL 

»mdotet 

»LEFF 




COMMON 

/CMAIN/ 






* 

AOTOT 

rAOGAS 

#al 

»awll 

» ABTL 

t 


* 

CD 

»C V 

»CP 

#CVHE 

»CPHE 

» CL 

*C8TL # 

* 

conqlg 

»C0NTV 

, CONSAT 

fOONQSP 

t 



♦ 

DEADWT 

»DTIME 

*OTTOL 

»UPVARY 

t 



♦ 

EPSP 

*EPSR 

* EPSA 

*F 

»FQLIQ 

#fmdots*g * 

♦ 

HFG 

»HAMS 

* HEUSE 

»hbtl 

*HW 

»HL 

9 

* 

IFLOW 

» IFLOW1 

, ispray 

*11 

*12 

»ICPV 

»ISAVE »LEFF » 

♦ 

mdctl 

rMDOTBP 

,MDOTE 

rMDOTV 

*MD0TG 

» mdothe 

#mdotff*mdots * 

♦ 

MDOTSO 

*MBTL 

,MDOTET 

»MDOTRS»NTDOT 

r 


* 

P 

»PBTL 

,PCRACK 

»PRESET*PFFLOW 

»PR 

*P1 »PINv t 

* 

PvAKYO 

,PMAX 

» PMIN 

»RCON 

* 



* 

QGS 

»QBHE 

* QBP 

rGWL 

* OWG 

* QGL 

t 

* 

RHOL 

»RHOG 

*RHE 

* 




* 

SV 

* SVSAT 

* SVVNT 

rSLL 

rSlGN 

* STOP 

t SVLIQ , 

♦ 

TU 

* TUI 

tTSAT 

»TVNT 

»TIMES 

t TMES2 

*TIVE1 , 

* 

UG 

rUGSAT 

* UGVNT 

* 




* 

VTOT 

» VL 

»VU 

*VU1 

» VBTL 

* 


♦ 

WRATIO 

*X 







TAV6 = O.S*(TU + TSURF) 

VISC = (4. + .*2* T*V6)*.242E-3 
COND = (.06 ♦ .0034*TAv6)*S7.8E-3 
PR = CP*VISC/C0ND 

GRPR = PR*XL*(XL*RHOU*3600./VISC)**2*G*32.2*ABS(TSURF-TU)/TAVG 
60 TO (10*30 ) t IEQNS 
10 IF (GRPP.GT.l.E+9) GO TO 20 

HSURF = 0.b9*(COND/XL)*GRPR**.25O 
RETURN 
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20 HSURF s 0.13 *(COND/Xl)*GRPR**,333 
RETURN 

30 HSURF = 0.27* (COND/Xu) *GRPR**. 250 
RETURN 
END 

SUBROUTINE DUMMY (A*B*C*D*E> 


ENTRY NEROlN 
WRITE (6»100) 

100 FORMAT (1H0,*NNER0 GT ZERO, SHOULD be ZERO* ) 

RETURN 
ENTRY RETIN 
WRITE (6*200) 

200 FORMAT ( 1H0 , * NRETRO GT ZERO* SHOULD BE ZERO*) 

RETURN 
ENTRY MIX 
WRITE (6*300) 

300 FORMAT (1HQ * * IMIX GT ZERO*ShOULD BE ZERO*) 

RETURN 
ENTRY PLOT 
WRITE (6*400) 

400 FORMAT (lhO ,* I PLOT GT ONE* SHOULD BE ONE*) 

RETURN 
ENTRY VENT 
WRITE (6*500) 

500 FORMAT t 1H0,* IFLOW CAN NOT EQUAL FOUR IN THIS PROGRAM VERSION*) 
RETURN 
ENTRY RETRO 
WRITE (6*600) 

600 FORMAT (1H0,* IRETRO GT ZERO»SHOULO BE ZERO*) 

RETURN 

ENTRY STNERO 
WRITE (6*700) 

700 FORMAT ( lhO * * NSETS GT ZERO* SHOULD BE ZERO*) 

RETURN 
ENTRY HETEMP 
WRITE (6*600) 

800 FORMAT (1HQ,* SECTION OF PROGRAM ENTERED* SUBROUTINE HETEMP RQQ* ) 
RETURN 
END 

BLOCK DATA 

REAL MQOTL ,MDOTBP*MDOTE *MDOTV *MOOTG 

* mdotso,mbtl *mdotet*mdotrs*leff 

DIMENSION AwLL (2) 

COMMON /cmain/ 

* aotot *AOGAS »AL *AWLL »abtl 

* CD ,CV *CP »CVHE »CPHE 

* CONQLG *CONTV »consat*conqsp* 

* DEAOWT *DTIME ,DTTOL *UPvARy* 

* EPSP *EPSR * EPSA * F *FQLIQ 

* HFG »HAMS *HEUSE , HBTL *HW 

* IFLOW * I FLOW! * ISPRA Y* 1 1 , 12 


»MDOTHE*MDOTFF» MOOTS , 


* CL *CBTL , 


»FMDOTS»G » 

*HL » 

*ICPV *ISAVE »LEFF » 
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♦ 

MDOTL 

►MD0T6P 

, mdote 

,MDOTV 

►MDOTG 

►MDOTHE 

►MDOTFF»MDOTS ► 

* 

MDOTSO 

»MBTL 

fMOOTET 

»MDOTRS»NTDOT 

► 


* 

P 

rPBTL 

, PCRACK 

► PRESET »PFFLOW 

► PR 

►PI »PINV ► 

* 

PVARYO 

, PM AX 

► PMIN 

,PCON 

► 



* 

GGS 

• OBHE 

, 08P 

► OWL 

► QWG 

► QGL 

► 

* 

RHOL 

»RHOG 

, RHE 

► 




* 

SV 

» SVSAT 

, SVVNT 

► GLL 

► SIGN 

► STOP 

►SVLIQ ► 

* 

TU 

» TUI 

, TSAT 

► fVNT 

► TIMES 

►TMES? 

► TlMb.l » 

♦ 

UG 

, UGSAT 

»UGVNT 

► 




* 

VTCT 

, VL 

»VU 

► vui 

► VBTL 

► 


* 

WRATI0,X 






COMMON 

/Hf AT/ 







♦ 

NOS 

, IQW( 30 ) , ICW (30 ) , 

IFLUX(30) ► I AW ( 30 ) ►EMISS ( 30 ) ► 


* ST OPS ( 30 ) , SBOTS ( 30 ) ,UW(30) ,TW(50> ,MW<30) ,CW(3Q) , 

* F A W ( 3 U ) r ATOP ( 30 ) »Aw(30) ,NQW(5) » TBTO ( 30 , b ) , TBQ ( 30 , 5 ) ► 

* NCW ( 3 ) , TBTCW (30,3) ,TBCW(30,3) ,DTQ<5), 

* NAW ( 2 ) , TBSA 190,2) ,TBAI90,2) 

COMMON /TABLE/ 

* NPG, NTG ► T6PG ( y ) ,TBTG { 9 , 50 ) » TBSV (9 , 50 ) ► TBUG 19 , 50 ) , 

* NS A T rXPSATUu) »XTSAT(10) ,XSVSAT<10) ,XUGSATU0), 

* XHFG(lO) »XSVLIO(10) ,NVOL » TBHVOL C 1 1 0 ) * TBVOL il 10 ) , 

* NVENT,XPVENT(10) ► XMVtNT ( 10 ) » NS ,XTIMES<20) ,XMDOTS(20) 

*» TBTKw (10*3) »TBKWU0,3) ,NKW<3) 

COMMON /CPLOT/ IPLOT, NPLOT(d) 

COMMON /CTEMP/ CONBRP,CONQBO,SBOT 


DATA 

ISA vE ► I FLOW ► I SPRAY 

/I , 1,2/ 





DATA 

FMDOTS »PVARYO ► DP VARY /l.,99., 

1. 

/ 



DATA 

STOP ► SBOT ► VTOT / 

0.5 ,437. 

,10392.31 / 



UAT A 

PMAX ► PM IN ► SIGN /100.,.0l,l. 

/ 




DATA 

IPLOT ► (NPLOT(I) »I= 

1,8) /0 , 1 , 2 

,3, 4, 5, 6, 7, 8/ 



DATA 

NSAT / 6/ 






DATA 

(XPSAT(I) ,1=1,6) 

/ 10. 0 

9 

15.0 , 20.0 , 

30.0 

9 


40. U , 50. 0 

/ 





DATA 

(XTSAT(I) ►1=1,6) 

/ 34.260 

9 

36.603 , 38.436 , 

41.291 

9 


43.529 » 4 5 . h 0 0 

/ 





DATA 

(XSVSAT(I) ,1=1,6) 

/ lb. 8879 

9 

11.7299, 9.0293, 

6.2031 

9 


4.7201, 3.7977/ 




DATA 

(XUGSAT(I) ,1=1,6) 

/ 47.26 

9 

49.37 , 50.75 , 

52.34 

9 


53.03 , 53.17 

/ 





data 

(XHFG(I) ,1=1,6) 

/ 193.53 

9 

191.55 , 189.23 , 

104.10 

9 


17B.58 , 172.61 

/ 





DATA 

(XSVLIO(I) ,1=1,6) 

/ 0.2221 

9 

0.2266 , 0.2305 , 

0.2374 

9 


0.2437 ► 0.2498 

/ 





DATA 

NS / 13/ 






DATA 

(XTIMES(I), 1=1,13) 

/-1U0.0 

9 

-22.5 , -20.0 , 

-18.0 

9 


-16.0 ► -14,0 

, -12.0 

9 

-1 0 . 0 , -8 .0 , 

-6.0 

9 


0.0 ► 2.0 

, 100.0 

/ 




DATA 

(XMDOTS(I) ,1=1,13) 

/ 0.0 

9 

n.o , 0.18 , 

0.32 

9 


0.44 , 0.51 

, 0.55 

9 

0.58 , 0.60 , 

0.61 

9 


0.61 , 0.0 

, 0.0 

/ 
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DATA NCW /5» 6/ 

DATA (TBTCW(I ),I=1»5)/ 35. #50. * 100 . #250 . » 500 . / 

DATA (TBCW (I ),I=1»5)/ .OOU95 » .0061 # .044 » .1548 # .220 / 


DATA (TBTCWd)#I = l#6)/ 25. » 100. » 200. » 300. » 400, 
DATA (TBCW(I) 1 1*1 * 6 ) / • 156 » .158 » .166 » .186 * .218 

DATA NKW /6»6/ 

DATA ( TBTK W ( I )#I=1#6)/ 35. * 50 . » 90 . * 175. » 300 . .500 . / 
DATA (TBKW (I ), 1=1*6)/ 94, * 130. .163, # 124. # 115. # 115./ 


DATA (TBTKW(I 
DATA ( TBKWd 


500./ 

.260/ 


) .1=1 #6)/ 20. *60. #100. *140. #200. *280./ 

) , I=l»6)/ .01* ,0185» .0275# .036# .0415* .0487/ 


C 

C 


DATA 

NQM(l) 

/24/ 




DATA 

(TBTQU) 

*I=1»24) / 

-5262 

• 0 

#-5022.0 

* 

-4062.0 

#-3402.0 

#-3222 

• 0 

*-3162.0 

* 

-822.0 

# -462.0 

# 0 

.0 

* 240.0 

* 

1200.0 

» 1860.0 

# 2040 

• 0 

* 2100.0 

• 

4800.0 

# 5262.0 

/ 



DATA 

(TBQ(I) # 

I=l»24> 

/ 12. 

50 

* 14.30 

* 

11.85 

# 5,60 # 

5.90 

9 

1.00 » 

* 

6.20 

» 8.75 » 

12.50 

f 

14.30 * 

* 

11.85 

# 5.60 # 

5.90 

9 

1.00 * 

* 

6.20 

» 8.75 / 




DATA 

NAW /2#2/ 




DATA 

(TBSA(I) 

»I=1#2) / 

477.0 

9 

347.0 / 

DATA 

(TBSA(I) 

# 1291 » 92 ) / 

437.0 

9 

0.0 / 

DATA 

(TBA(I) # 

I = l#2) / 

0.0 

9 

730.94 / 

DATA 

(TBA(I) , 

1=91*92)/ 

0.0 

9 

2473.88 / 


*-4782.0 

#- 1062.0 

# 480.0 

# 4200.0 

14,80 # 
1.00 # 
14.80 » 
1.00 # 


#-4422.0 
#- 1002.0 
» 840.0 

# 4260.0 

14.00 » 
6.65 # 
14,00 # 
6.65 » 


END 

BLOCK 


DATA 


COMMON /TABLE/ 

* NPG»NT6»TBP6(9) » TBTG(9» 50 > # TBSV<9 » 50 > * TBUG ^9, 50 > » 

* NSAT # XPSAT { 10 ) .XTSATUO) #XSVSAT(10) #XUGSAT|10)» 

* XHFQ(IO) #XSVHQ(10) »NVOL »TBHVOL< 110 ) # TByOLtllO ) # 

* NVENT#XPVENT(10) .XMVENTdO) »NS #XTIMES<20) »XMDOTS(20) 

** TBTKW ( 10 # 3) #TBKW(10#3) #NKW<3) 

DATA NVOL /22/ 

DATA (TBHVOLd) #I«1#22)/ 


* .5 

» 10. 

* 20. 

* 35. 

9 

50. 

9 

65. 

9 

* 80. 

• 95. 

» 115. 

* 130. 

9 

200. 

9 

270. 

9 

* 347. 

» 357. 

» 367. 

» 377. 

9 

387, 

9 

395. 

9 

* 407. 

» 417. 

» 427. 

# 437. 

/ 





DATA (TBVOL (I)#I=1#22)/ 







*10392.31 

#10371.43 

#10308.44 

#10140.53 

9 

9890.60 

9 

9577.46 

9 

* 9210.61 

# 8808.15 

# 8225.25 

* 7768.47 

9 

5654.72 

9 

3540.98 

9 

* 1215.55 

# 937.66 

# 702.69 

# 447.54 

9 

335.12 

9 

244.61 

9 

* 128.63 

# 61.85 

# 32.68 

* 0. 

/ 
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DATA NPG / 8 / 

DATA NTG / 47 / 


DATA 

(TBPGl I ) r I 

= 1 , 8 ) / 

15.0 , 

20.0 , 

30.0 , 

40.0 

♦ 

50.0 , 

60 .0 , 

7U.0 , 

80.0 / 



DATA 

(TBTGU) »I 

= 1 , 415 , 9 )/ 

36*603 » 

38.0 » 

42.0 , 

46.0 

♦ 

50 . U , 

54 . U , 

58.0 » 

62.0 * 

66,0 , 

70.0 

♦ 

74.0 , 

78 . u , 

82.0 , 

86.0 * 

90.0 , 

96.0 

♦ 

102.0 , 

108.0 , 

114.0 » 

120.0 * 

126.0 , 

132.0 

♦ 

138.0 , 

144.0 , 

150.0 , 

158.0 * 

166,0 , 

174.0 

* 

182.0 , 

190.0 , 

220. 0 , 

240.0 * 

260.0 , 

280,0 

* 

300.0 , 

320.0 , 

340,0 , 

360.0 * 

380.0 , 

400.0 

♦ 

420.0 , 

440,0 , 

460.0 , 

480.0 * 

500.0 , 

520.0 

* 

540.0 / 






DATA 

(TBSV(I) ,1 

= 1 , 415 , 9 )/ 

11 • 7299 * 

12 . 3162 * 

13 . 9239 * 

15 . 474 ? 

* 

16 . 9959 , 

18 . 4985 , 

19 . 9883 * 

21 . 4684 * 

22 . 9407 , 

24.4067 

♦ 

25 . 8675 , 

27 . 3238 , 

28 . 7764 , 

30 . 2256 * 

31 . 6721 , 

33,8372 

♦ 

35 . 9979 , 

38 . 1547 , 

40 . 3084 , 

42 . 4594 * 

44 . 6082 , 

46.7551 

* 

48 . 9003 . 

51 . 0440 , 

53 . 1865 * 

57 . 0415 * 

58 . 8949 , 

61.7469 

♦ 

64 , 5975 . 

67 . 4465 , 

78 . 1212 , 

85 . 2330 * 

92 . 3431 , 

99.4515 

♦ 

106 . 5580 . 

113 . 6633 , 

120 . 7682 * 

127 , 8721 , 

134 . 9733 , 

142.0754 

* 

149 . 1803 . 

156 . 2836 , 

163 , 3738 * 

170 . 4516 , 

177 . 5331 , 

184.6418 

♦ 

191 . 7834 / 






DATA 

(TBUGd) , I 

= 1 , 415 , 9 )/ 

49.37 » 

51.96 * 

58.77 , 

65.16 

♦ 

71.38 . 

77.52 , 

33.61 » 

69.68 * 

95.73 , 

101.77 

* 

107.80 , 

113.83 , 

119.87 * 

125.92 * 

131.98 , 

141,12 

* 

150.34 . 

159.68 , 

169,16 * 

178.81 * 

188.69 , 

198.82 

♦ 

209.24 , 

219.98 , 

231.08 * 

246.48 » 

262.61 , 

279.47 

* 

297.05 , 

315.33 , 

389.82 * 

443.70 * 

500.00 , 

557,72 

* 

610.01 . 

674.45 , 

732.59 * 

790.14 » 

846,88 , 

902.75 

♦ 

957 . 7b . 

1011.93 » 

1065.37 » 

1118.19 * 

1170.44 , 

1222.26 

♦ 

1273.72 / 






DATA 

(TBTG(I) ,1: 

= 2 » 4lo » 9 ) / 

38.436 * 

40.0 * 

42.0 , 

46.0 

* 

50.0 , 

54.0 , 

58.0 » 

62.0 * 

66.0 , 

70.0 

♦ 

74.0 . 

78.0 , 

62.0 > 

86.0 * 

90,0 , 

96.0 

♦ 

102.0 , 

108.0 , 

114.0 * 

120.0 * 

126.0 , 

132.0 

♦ 

138.0 , 

144.0 , 

150.0 * 

158.0 * 

166.0 , 

174.0 

* 

182.0 , 

190.0 , 

220,0 , 

240.0 * 

260.0 , 

280,0 

♦ 

300.0 , 

320.0 , 

340.0 , 

360.0 * 

380.0 , 

400.0 

♦ 

420.0 , 

440.0 , 

460.0 , 

480.0 * 

500.0 , 

520.0 

* 

540.0 / 






DATA 

(TBSV(I) ,1: 

= 2 , 416 , 9 )/ 

9 . 0293 * 

9 . 5393 * 

10 . 1676 , 

11.3764 

♦ 

12 . 5487 , 

13 . 6998 , 

14 . 8366 * 

15 . 9628 * 

17 . 0810 , 

18.1925 

♦ 

19 . 2987 , 

20 . 4003 , 

21 . 4980 * 

22 , 5924 * 

23 . 6839 , 

25.3167 

* 

26 . 9446 , 

28 . 5692 , 

30 . 1904 * 

31 . 8089 , 

33 . 4252 , 

35,0395 

♦ 

36 . 6521 , 

38 . 2633 , 

39 . 8733 * 

42 . 0182 , 

44 . 1615 , 

46.3034 

♦ 

48 . 4441 , 

50 . 5831 , 

58 . 5959 * 

63 . 9333 * 

69 . 2689 , 

74.6028 

♦ 

79 . 9351 , 

85 . 2658 , 

90 . 5956 * 

95 . 9249 * 

101 . 2521 , 

106.5801 

* 

111 . 9098 , 

117 . 2380 , 

122 . 5563 * 

127 . 8654 * 

133 . 1772 , 

138,5089 

♦ 

143 . 8645 / 






l,ATA 

(TBUG(I) ,1: 

= 2 , 416 , 9 )/ 

50.75 * 

53.73 * 

57.29 , 

63 # 96 i 


A -31 


c 


c 


* 

7U.34 , 

76.58 , 

82.75 » 

88.88 , 

94.98 , 

101.07 , 

♦ 

107.15 , 

113.22 , 

119.29 , 

125.36 , 

131.46 , 

140,64 , 

♦ 

149.89 , 

159.26 , 

168.77 , 

178.45 , 

188.35 , 

198.50 , 

♦ 

208.93 , 

219.70 , 

230.81 , 

246.23 , 

262.37 , 

279.24 , 

♦ 

296.83 , 

315.13 , 

389.65 , 

443.55 , 

499.86 , 

557.59 , 

♦ 

615.89 , 

674.34 , 

732.49 , 

790.05 , 

846.79 , 

902.67 , 

♦ 

957.68 , 

1011.85 , 

1065.30 , 

1118.13 , 

1170.38 , 

1222.21 , 

♦ 

1273.67 / 






DATA 

(TBTG(I) ,1 

=3,417,9)/ 

41.291 , 

42.0 , 

44. U , 

46.0 , 

* 

50.0 , 

54. U , 

58.0 , 

62.0 , 

66.0 , 

70.0 , 

♦ 

74.0 , 

78.0 , 

82.0 , 

86.0 , 

90.0 , 

96,0 , 

♦ 

102.0 , 

108.0 , 

114.0 , 

120.0 , 

126.0 , 

132.0 , 

♦ 

138.0 , 

144.0 , 

150.0 , 

158.0 , 

166.0 , 

174.0 , 

* 

182.0 , 

190.0 , 

220.0 ' 

240.0 , 

260.0 , 

280,0 , 

* 

300.0 , 

320.0 , 

340.0 , 

360.0 , 

380.0 , 

400.0 , 

♦ 

420.0 , 

440.0 , 

460.0 ' 

480.0 , 

500,0 , 

520,0 , 

* 

540.0 / 






DATA 

(TBSVU) ,1 

=3,417,9)/ 

6.2031, 

6.3707, 

6.8244, 

7,2584, 

♦ 

8.0906, 

8.8944, 

9.6805, 

10.4545, 

11.2193, 

11.9771, 

* 

12.7290, 

13.4762, 

14.2193, 

14.9590, 

15,6957, 

16.7962, 

* 

17.8920, 

18.9839, 

20.0726, 

21,1586, 

22.2423, 

23.3241, 

♦ 

24.4042, 

25.4829, 

26.5603, 

27.9952, 

29.4284, 

30.8602, 

♦ 

32.2908, 

33.7198, 

39.0708, 

42.6337, 

46.1947, 

49.7540, 

* 

53.3116, 

56.8678, 

60.4231, 

63.9778, 

67.5310, 

71.0844, 

♦ 

74.6388, 

78.1919, 

81.7384, 

85.2788, 

88.8209, 

92.3762, 

♦ 

95.9472/ 






DATA 

(TBUG(l) ,1 

=3,417,9)/ 

52,34 , 

53.82 , 

57.70 , 

61.32 , 

♦ 

68.12 , 

74.62 , 

80.97 , 

87.25 , 

93.47 , 

99.65 , 

♦ 

105.82 , 

111.97 , 

118.11 , 

124.25 , 

130.40 , 

139.66 , 

* 

148.99 , 

158.42 , 

167.98 , 

177,72 , 

187.66 , 

197,85 , 

* 

208.32 f 

219.12 , 

230.26 , 

245.72 , 

261,89 , 

278.79 , 

* 

296.41 , 

314.73 , 

389,31 , 

443.24 , 

499.57 , 

557,32 , 

♦ 

615.65 , 

674.12 , 

732.29 , 

789.86 , 

649.61 , 

902.50 , 

* 

957.53 , 

1011.71 , 

1065,17 , 

1118.00 , 

1170.26 , 

1222.09 , 

* 

1273.56 / 






DATA 

(TBTGU) ,1: 

=4,418,9)/ 

43.529 , 

46.0 , 

50.0 , 

54.0 , 

♦ 

58.0 , 

62.0 , 

66,0 , 

70.0 , 

74.0 , 

78.0 , 

♦ 

82.0 , 

86.0 , 

90.0 , 

96.0 , 

102.0 , 

108.0 , 

♦ 

114.0 , 

120.0 , 

126.0 , 

132,0 , 

138.0 , 

144.0 , 

♦ 

150.0 , 

158.0 , 

166.0 , 

174,0 , 

182.0 , 

190.0 , 

* 

200.0 , 

210.0 , 

220.0 , 

240.0 , 

260.0 , 

280.0 , 

* 

300.0 , 

320.0 , 

340.0 , 

360.0 , 

380.0 , 

400.0 , 

* 

420.0 , 

440.0 , 

460,0 , 

480.0 , 

500.0 , 

520.0 , 

♦ 

540.0 / 






DATA 

(TBSV(I) ,1: 

=4,418,9)/ 

4.7201, 

5,1743, 

5.8487, 

6.4842, 

♦ 

7.0978, 

7.6973, 

8.2865, 

8.8680, 

9.4433, 

10.0136, 

* 

10.5796, 

11.1421, 

11.7016, 

12.5360, 

13.3657, 

14.1914, 

♦ 

15.0139, 

15.8337, 

16.6512, 

17.4667, 

18,2805, 

19.0929, 

* 

19.9041, 

20.9839, 

22.0620, 

23.1388, 

24.2143, 

25.2884, 

* 

26.6297, 

27.9696, 

29.3085, 

31.9841, 

34.6578, 

37.3297, 

♦ 

40.0001, 

42.6691, 

45.3371, 

48.0044, 

50.6704, 

53,3365, 

♦ 

56.0033, 

58.6690, 

61.3297, 

63.9858, 

66.6432, 

69.3100, 


A-32 



* 71.9683/ 


DATA 

(TBUG( I) ,1 

=4*418*9)/ 

53.03 » 

58.26 » 

65.69 , 

72,54 * 

* 

79.12 * 

85.56 * 

91.91 » 

98.21 * 

104.47 * 

110.70 * 

♦ 

116.92 * 

123.13 » 

129.34 * 

138.69 » 

148.09 , 

157.58 » 

♦ 

167.20 , 

176.98 , 

186.97 * 

197.20 » 

207.71 , 

218.54 » 

* 

229.72 , 

245.21 * 

261.41 * 

278.34 * 

295.99 , 

314.33 » 

* 

338.23 , 

363.14 * 

388.97 * 

442.93 * 

499.29 , 

557,06 » 

* 

615.91 , 

673.89 » 

732.08 * 

789.67 * 

846.43 , 

902.34 » 

* 

957.37 , 

1011.56 » 

1065,03 * 

1117.87 * 

1170.14 * 

1221.98 * 

* 

1273.4b / 






DATA 

(TBTCr(I) ,1 

=5*419*9) / 

45,400 » 

46.0 * 

50.0 , 

54.0 * 

* 

56.0 * 

62. U * 

66,0 * 

70.0 * 

74.0 , 

78.0 » 

* 

82.0 , 

86.0 * 

90.0 * 

96.0 * 

102.0 * 

108,0 * 

* 

114.0 , 

120.0 * 

126,0 * 

132.0 * 

138.0 , 

144.0 » 

* 

150.0 , 

158.0 * 

166.0 » 

174.0 * 

182,0 , 

190.0 » 

* 

200.0 , 

210.0 * 

220.0 » 

240.0 » 

260,0 , 

280,0 * 

* 

300.0 , 

320.0 * 

340.0 » 

360.0 » 

380.0 , 

400.0 * 

* 

420.0 , 

440. U » 

460.0 * 

480.0 * 

500.0 * 

520,0 » 

* 

540.0 / 






DATA 

(TBbVCI ) ,1 

=5*419*9)/ 

3.7977* 

3.8957* 

4.4908* 

5,0312* 

* 

b . 5442 » 

O. U404» 

6.5252* 

7.0015* 

7.4712* 

7.9356* 

♦ 

8.3956* 

8.8519* 

9.3051* 

9.9800* 

10,6501* 

11.3161* 

* 

11.9789* 

12.6390* 

13.2967* 

13.9525* 

14.6065* 

15.2591* 

* 

15.9105* 

16.7773* 

17.6424* 

18.5061* 

19.3686* 

20.2297* 

♦ 

21.3047* 

22. 3785* 

23,4512* 

25.5945* 

27.7357* 

29,8752* 

* 

32.0132* 

34.1496* 

36.2854* 

38.4204* 

40.5542* 

42.6879* 

* 

44.8221* 

46.9553* 

49.0846* 

51.2101* 

53 . 3364 * 

55.47o3» 

* 

57.6131/ 






DATA 

(TBUG(I) ,X 

=5 *419*9)/ 

53.17 » 

54.61 » 

63,00 * 

70.31 » 

* 

77.16 , 

83.61 » 

90.32 » 

96.74 » 

103.10 , 

109,42 » 

♦ 

116.72 , 

122.00 * 

128.28 * 

137.70 » 

147.18 , 

156.73 * 

* 

166.41 , 

176 • 25 * 

186.28 » 

196.55 * 

207.10 * 

217.96 » 

♦ 

229.17 , 

244.70 * 

260.93 * 

277,90 * 

295.57 , 

313.93 » 

♦ 

337.85 , 

362.78 » 

388,63 » 

442.62 » 

499.01 * 

556,80 * 

♦ 

615.17 * 

673.67 * 

731.87 * 

789.48 » 

846.26 » 

902.17 * 

* 

957.21 , 

1011.41 » 

10to4.89 » 

1117.74 » 

1170,03 , 

1221.67 » 

* 

1273.34 / 






data 

(TBTG ( I ) ,1 

=6*420*9)/ 

47,022 * 

50.0 * 

54.0 * 

58,0 » 

♦ 

62 .0 * 

66.0 * 

70. 0 » 

74.0 * 

78.0 * 

82,0 * 

* 

86.0 , 

90.0 * 

96.0 » 

102.0 * 

108.0 * 

114.0 * 

♦ 

120.0 * 

126.0 * 

132.0 * 

138.0 » 

144.0 , 

150.0 » 

* 

156.0 * 

162.0 * 

168,0 * 

174.0 * 

180.0 * 

190.0 » 

* 

200.0 , 

210.0 * 

220.0 * 

240.0 * 

260.0 » 

280,0 » 

* 

300.0 , 

320.0 * 

340,0 » 

360,0 * 

380,0 * 

400.0 * 

* 

420.0 , 

440.0 » 

460.0 » 

480.0 » 

500,0 , 

520,0 . 

♦ 

540.0 / 






DATA 

(TBSV(I) *1 

=6*420*9)/ 

3.1644* 

3.5718* 

4 , 0558 » 

4.5046, 

♦ 

4.9335* 

5.3495* 

5.7563* 

6.1559* 

6.5499* 

6.9394* 

★ 

7.3250* 

7.7074* 

8.2761* 

8.8398* 

9.3994* 

9.9558* 

♦ 

10.5093* 

11.0606* 

11.6098* 

12.1574* 

12.7035* 

13.2483* 

♦ 

13.7920* 

14.3348* 

14,8767* 

15.4178* 

15.9583* 

16.8574, 

♦ 

17.7549* 

16.6512* 

19.5465* 

21.3349* 

23,1211* 

24.9057, 



A-33 


3U.2512 

40.9210 


35.5869 

46.2439 


C 


C 


* 

* 

* 


26.6867* 
37 . 3679* 
46.0296/ 


28.4704* 

39.1461* 


DATA 

(TBUGU) 

'I 

=6*420** 

9 )/ 

52.91 

9 

59.96 

* 67.92 

0 

75.14 

* 

62.01 

0 

88 . 68 

0 

95.23 

9 

101.71 

* 108.12 

9 

114.50 

♦ 

120.86 

0 

127.20 

0 

136.71 

9 

146.26 

* 155.89 

9 

165.62 

* 

175.51 

0 

185.59 

0 

195.90 

9 

206.49 

» 217.39 

9 

228.62 

♦ 

240.23 

0 

252.23 

0 

264.64 

9 

277.45 

* 290.66 

9 

313.52 

♦ 

337,47 

0 

362.42 

9 

386.29 

9 

442,32 

» 498.73 

9 

556.55 

* 

614.93 

0 

673.44 

9 

731.66 

9 

789.28 

* 846.08 

9 

902,00 

♦ 

* 

957.06 

1273.23 

0 

/ 

1011.27 

9 

1064.75 

9 

1117.62 

*1169,91 

9 

1221.75 


32.0312 

42.6929 


33.8101 

44.4654 


DATA 

(TBTG(I) ,1 

=7*421*9)/ 

46.464 * 

50.0 * 

54.0 , 

58.0 , 

* 

62.0 * 

66.0 * 

70,0 » 

74.0 » 

78.0 , 

82,0 » 

♦ 

86.0 , 

90.0 * 

96.0 , 

102.0 * 

108.0 * 

114.0 * 

* 

120.0 , 

126.0 * 

132.0 * 

138.0 * 

144.0 , 

150,0 » 

♦ 

156.0 , 

162.0 * 

168.0 * 

174.0 » 

180.0 » 

190.0 * 

♦ 

200.0 , 

210.0 * 

220,0 * 

240.0 * 

260.0 * 

280,0 * 

♦ 

300.0 , 

320.0 * 

340,0 * 

360.0 * 

380.0 , 

400,0 * 

♦ 

* 

420.0 * 

540.0 / 

440.0 * 

460.0 » 

480,0 * 

500.0 * 

520,0 * 

data 

(TBSV(I) *1 

=7*421*9)/ 

2.7007* 

2.8995* 

3.3521, 

3,7583* 

♦ 

4.1408* 

4.5085* 

4.8660* 

5,2159* 

5.5599* 

5.8991* 

♦ 

6.2343* 

6.5663* 

7.0591* 

7.5468* 

8.0305* 

8.5108* 

♦ 

6.9883* 

9.4635* 

9.9366* 

10.4081* 

10,8781* 

11.3469* 

♦ 

11.8145* 

12.2811* 

12.7470, 

13.2120* 

13,6764* 

14.4486* 

♦ 

15.2194, 

15.9889* 

16.7575* 

18.2923* 

19.8251* 

21.3561* 

* 

22.8856* 

24.4138* 

25,9410* 

27.4675* 

28.9929* 

30.5182* 

♦ 

♦ 

32.0436* 

41.1842/ 

33.5662* 

36 . 0900 * 

36.6092* 

38,1289* 

39,6535* 

DATA 

(TBUGlI) ,1: 

s7 * 421 *9 ) / 

52.35 * 

56,46 » 

65,32 * 

72.99 * 

♦ 

80.13 * 

87.00 » 

93.70 * 

100.29 * 

106,81 * 

113.27 * 

♦ 

119.70 , 

126.11 * 

135.72 * 

145.35 » 

155.04 , 

164.83 * 

♦ 

174.77 , 

184.90 ♦ 

195.25 * 

205.88 * 

216.81 , 

228,08 * 

* 

239.71 , 

251.74 * 

264.17 * 

277.00 » 

290.23 * 

313.12 * 

♦ 

337.09 , 

362.07 * 

387.95 * 

442.01 » 

498.45 , 

556,29 * 

* 

614.69 , 

673.22 * 

731.46 * 

789,09 * 

845.90 * 

901.84 * 

♦ 

♦ 

956.91 , 

1273.12 / 

1011.13 *1064.62 *1117.49 *1169,79 *1221.64 » 


DATA 

(TBTGt I ) * I 

=8*422*9)/ 

49.768 


50.0 


54,0 


58.0 

♦ 

62.0 , 

66.0 * 

70.0 


74.0 


78.0 


82.0 

♦ 

86.0 , 

90.0 * 

96.0 


102.0 


108.0 


114,0 

♦ 

120.0 , 

126.0 * 

132.0 


138.0 


144,0 


150,0 

♦ 

156.0 * 

162.0 * 

166.0 


174.0 


180.0 


190.0 

♦ 

200.0 * 

210.0 * 

220.0 


240.0 


260,0 


280,0 

* 

300.0 * 

320.0 * 

340.0 


360.0 


380.0 


400.0 

* 

420.0 * 

440.0 * 

460.0 


480.0 


500.0 


520.0 

♦ 

DATA 

540.0 / 

(TBSV 1 1 ) * I: 

=8*422*9)/ 

2.3452 


2.3747 


2,8169 


3.1950 

♦ 

3.5442* 

3.8765* 

4.1975 


4.5104 


4.8170 


5.1187 

♦ 

5.4162* 

5.7104, 

6,1464 


6.5772 


7.0039 


7,4272 

* 

7.8477* 

8.2658* 

8.6819 


9.0963 


9.5092 


9.9209 


A-34 



♦ 

10,3315. 

10.7410, 

11.1498, 

11.5578# 

11.9651, 

12.6422 

* 

13.3179, 

13.9923, 

14.6658# 

16,0105# 

17.3531, 

18,6940 

* 

20.0333, 

21.3713, 

22.7084, 

24.0447# 

25.3801, 

26.7152 

♦ 

26.0504, 

29.3848, 

30.7168, 

32.0465# 

33.3766, 

34.7108 

* 

36.0503/ 






DATA 

(TBUG(I) ,1 

=8,422,9)/ 

51.54 * 

52.26 # 

62.47 , 

70.71 

* 

78.16 , 

85.26 , 

92.13 » 

96,85 # 

105.47 , 

112.03 

♦ 

118.54 , 

125.02 , 

134.72 , 

144,42 , 

154.18 , 

164.04 

♦ 

174.03 , 

184.20 , 

194,60 # 

205.26 » 

216.23 , 

227,53 

♦ 

239.19 , 

251.24 , 

263.70 # 

276.55 # 

289.80 , 

312.72 

* 

336.72 , 

361.71 , 

387.61 , 

441.70 » 

498,17 , 

556.03 

♦ 

614.45 , 

673.00 , 

731.26 , 

788.90 » 

845,72 , 

901.67 

♦ 

956.75 , 

1010.98 , 

1064.49 , 

1117.37 # 

1169.67 , 

1221.53 

♦ 

1273.01 / 






END 
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2.62 

1.56 

1.24 
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1 0 1 
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.6600 

5551. 

.7192 

5561 . 

.7902 

5571. 

.7852 

5581. 

.7925 

5591. 

.7866 

5601 • 

.7755 
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.7616 

5661. 

.6972 

5711. 

.6116 

5761. 

.5577 

5611. 

.4997 

5861. 

.4430 

5911. 

.3916 

2 


5541. 

3.6100 

5551. 

3.8852 

5561. 

4.1716 

5571. 

4.1622 

5581. 

4.2427 

5591. 

4.2961 

5601. 

4.3350 

5611. 

4.3661 

5661. 

4.3969 

5711. 

4.5147 

5761. 

4.4741 

5811. 

4.5622 

5661. 

4.5700 

5911. 

4.4669 

3 


5541. 

13.200 



3flb , 3 


1.0 

1.0 

1.0 
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5551. 15.151 
5561. 16.666 
5571. 16.666 
5581. 17.298 
5591. 17.641 
5601. 16.145 
5611. 16.362 
5661. 19.764 
5711. 21.116 
5761. 22.172 
5611. 21.086 
5661. 22.913 
5911. 22.256 


1.0130 

1.110 

1.032 

0.618 

0.608 

0.579 

0.531 

0.579 

0.772 

0.801 

0,695 

0.724 

0.995 

0.850 

0.840 

0.898 

0.926 

0.936 

0.907 

0.974 

0.950 

0.965 

0.985 

0.936 

1.0150 
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1.225 

1.370 

1.390 
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2.030 

2.030 
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203.25 
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203,8 
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203.9 
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203.9 

203.9 

203.9 

203.9 
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204.1 
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204,2 
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204.2 
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202.4 
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q 
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APPENDIX B 


LIQLEV PROGRAM 

This program predicts the increase in liquid level in a tank during a 
depressurization phase by accounting for bubble growth and transient 
in the boundary layer. This analytical model is described in Section 4.3 
of the report along with parametric data developed with the program. A 
description of the input is given here along with definition of input and 
output variables. A program listing in this appendix includes a sample 
set of input cards for one of the identifiable parametric cases. The 
output from this data is also presented. 
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INPUT INSTRUCTIONS 


1. TITLE CARD (FORMAT 10A8) 

2. CONSTANTS (FORMAT 8E10.4) 

CARD 1 

DELTA = Time step, sec 

DTANK = Tank diameter, ft 

HTZER0 = Liquid height initial, ft, assume cyl. tank 

V0LT = Tank volume total, cu ft 

XMLZR0 = Liquid mass, lb 

PIN IT = Pressure initial, psia 

PFINAL = Pressure final after vent down, psia 

TINIT = Temperature bulk liquid, °R 

CARD 2 


THETIN = Problem time initial, sec 

GG0 = Gravity level, g's 

3. CONSTANTS (FORMAT 8110) 

MLTP = Multiple run flag; 0, case; 1, case follows 

NVMD = Number of time- vent rate entries, max. 20 

NEPS = Number of time-area ratio entries, max. 20 

NLATTM = Number of time- lateral spacing distances, max. 20 

NVERTM = Number of time- vertical spacing distances, .max. 20 

4. VENTING TABLE (FORMAT 8E10. 4) 

TVMD0T = Problem time, sec 

XVMD0T = Vent rate, lbm/sec 

5. INTERFACIAL AREA RATIO TABLE (FORMAT 8E10.4) 

TEPS = Problem time, sec 

XEPS = Ratio of bubble area to interfacial area plus bubble area 


Program will compute from wall area if NEPS = 0 
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6. LATERAL BUBBLE SPACING TABLE (FORMAT 8E10.4) 

TSPAL = Problem time, sec 

XSPACL = Bubble spacing factor, bubble diameters 

7. VERTICAL BUBBLE SPACING TABLE (FORMAT 8E10.4) 

TSPAV = Problem time, sec 

XSPACV = Bubble spacing factor, bubble diameters 

OUTPUT VARIABLES 


THETA1 

XMVAP1 

THETA2 

P2 

T2 

XML2 

XMVAP2 

H2 

DHDT 

DELH 

HR AT 10 

DPDTHA 

DELP 

EPS 

BETA 

VBL2 

DELBLZ 

AK3 

VMD0T 

AK1 

AK2 

AK2/AK1 


Initial problem time, sec 

Initial ullage vapor mass, lb 

Problem time at each print out, sec 

Tank pressure, psia 

Liquid temperature, psia 

Liquid mass, lb 

Ullage vapor balance mass, lb 

Liquid height, ft 

Rate of change of H2, ft/sec 

Change in H2 per time step, ft 

Fractional increase in liquid level above initial height, nd 

Pressure decay rate, psi/sec 

Pressure change per time step, psi 

Interfacial area ratio for boiling mass distribution, nd 

Fraction of evaporated mass remaining in boundary layer, nd 

Boundary layer vapor volume, cu ft 

Vapor boundary layer thickness at interface 

Free constant characterizing boundary layer thickness, ft - */ 2 

Vent rate, lbm/sec 

Boundary layer constant, ft*/2-sec“* 

Thermal property constant, sec - * 

Initial approximation for AK3 , ft - */ 2 
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XMVBL2 

XMDTBL 

XMVAP3 

NCONV 


= Vapor mass in boundary layer, lb 

= Mass leaving boundary layer at interface per time step, 
= Ullage mass from volume calculation, lb 
= Convergence iterations on boundary layer volume, nd 



lb 
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APPENDIX B 

PROGRAM LISTING FOR LIQLEV 


RUN ( S ) 

LFO, 

H 

PROGRAM LIGLEV ( INPUT t OUTPUT ) 

UIMENSION TVMDOT(20 ) t XVMDOT (20 ) »TEPS (20 ) t XEPS (20 ) , TSPAL (20 ) » 

1 XSPACL(20) »TSPAV (20)» XSPACVI 20 ) ,TITLE(10>» 

2 XFVBL(bO) »XSVFVB(80) ,XAK3(80) »XSAVAK(80) »XVPL2(80) , 

3 XAK4(80) 

50 READ 60 » TITLE 
PRINT oO t TITLE 
6u FORMAT (1H1»10A8) 

RE mu lo0» UELTA#DTANK>HTZERO»VOLT,XMLZRO» 

1 PIMT»PFINAL»TINIT»THETIN,GG0 

IUu r-Gr\' v MTl8E10«4) 

REAU 200 r MLTP t NVMO t NEPS , NLATTM , NVERTM 

GOo FORMAT (81 1U) 

kEAu 100» (TVMDOT(U) »Xv/MDOT(J) , J=1,NVM0> 

READ 100, ( TEP5 ( J) # XEPS ( J ) » J= 1,NEPS) 

REAL 100, ( TSFAL( J) rXSPACL ( J) » J=l, NLATTM) 

«EAl- 100, (TSPAV{ J) rXSPACV( J) , J=l, NVERTM) 

PRINT 300 1 delta, dtank, htzeru,volt»xmlzpo, 

1 PlNIT»PFlNALfTINIT,THETlN»GGO 

oOO FORMmT ( * DELTA — *FiO»2* DTANK — *F10»4* FtTZERO — *F1Q«4* VOLT —* 
1F10.2* XK-LZRO r *F1U.2/* PINIT = *F10 . 3*PFIN3L = *Fl0.3 * 

2TINIT = *F10.2*THETIN = *F10.2* GGO = *F10,5) 

PRINT 40 0, NVMQ , NEPS , NLATTM , NVERTM 
400 FORN at { * UNVN 0 =*I5* NEPS = *I5* NLATTM =*I 5 * NVERTM s *15) 

PRINT 500 , (TVMDOT l J) » XVMDOT ( J) , J=1,NVMD) 
bOu FORMAT (lh(),10X»* TVMD0T*6X,* VMDOT*/ { 8X , FI 0 . 2 , 4X , FI 0 . 2 ) / ) 

PRINT 600 » (TEPS(J) ,XEPS(U) , J=1,NEPS) 
bOu F CRM AT ( 1H0 , 10X * TEPS *6X * XEPS */ ( 8X ,F10 . 2 , 4X , F10 ,4 ) / ) 

PRINT 70 0 » (TSPAL ( J ) » XSPACL(J), 1»NLATTM) 

700 FORMAT (lHOrlOX * TSPAL *6X *XSPACL*/ (8X» F10 • 2 , 4X , FI 0 .2 ) / ) 

PRINT 30 U » (TSPAV(J)r XSPACV(J), jr 1 , NVERTM ) 
tiCu F ORMAT ( 1HO , 10X, * TSPAV *6X *XSPACv*/ ( 8X , F 1 0 • 2 , 4 X , F 1 0 , 2 ) / ) 

PERI M = 3.1416 * DTANK 
hC = , 78 5 4*0 TANK *D TANK 
JmPKINT = 0 

LiFiu r = o . o 

VBLl - 0 . 

NCQiW = 0 
PI = PINIT 
II = TINIT 
hi = HTZERO 
IHETAl = THETIN 
XML 1 = XMLZRO 
ZHT1= HTZERO 
GO TO 1100 
1000 PI = P2 
71 = T2 
hi = H2 

T ht 7 A 1 = THETA2 
X^L 1 = XML2 

XMVAP1 = XMVAP2 
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VBL1 = VBL2 
ZHT1 = ZHT2 
HLDAK3 = AK3 
NCONV = 0 

1100 RHOL =1.709E-01*7.454E-01*T1-4.421E-Q2*T1*T1*1.248E-03*(T1**3) 
l-i.738E-05*<Tl**4>*’9.424E-08*m**5> 
RHOV=-2.511E-01*4.294E-02*T1-2.860E-03*T1*T1*9.159E-05*(T1**3> 

1-1 .422E-06* ( Tl**4 > *1 . 001E-08* <T1**5 ) 

CS30.078*(T1-34.)42.12 

HFG=-2.0*(Tl-34.)+194.5 

1200 DPDTS=2. 49-. 22*T1*.00407*T1*T1*. 0000522* <T1**3) 

VOLLIO = XML1/RHOL • VBL1 
VOLGAS = VOLT-VOLLIQ 
XMVAP3 = VOLGAS * RHOV 
IF ( NPRINT )1 22 0.1 22 0.1230 
1220 XMVAP1 = XMVAP3 

PRINT 122b » THETA1 . XMVAP1 
1225 FORMAT(/*THETAl =*F8 . 2 *XMVAP 1 r*F8.2/) 

NPRINT s 1 

1230 DTDPS = 1.0/ DPDTS 

THETA2 S THETA1 ♦ DELTA 
THETAV = 0.5*(THETA1 +THETA2) 

VMUOT = SLI(THETAV»NVMD»TVMDOT»XVMOOT) 

1300 DPDTHA = -VMDOT/t XML1*CS*DTDPS/HFG 4XMVAP1* ( 1 . /P1-DTDPS/T1 ) ) 

DELP = OPDTHA * DELTA 
P2 : PI t DELP 
T2 = T1 ~ DTDPS* DELP 
1400 DELVE = XML1*CS*< T2-T1 ) /HFG 
XML2 = XMLl * DELME 
1500 DELMV = VMUOT* DELTA 

IF(NEPS) 1600.1600.1700 
1600 AW S PER IV * HI 
EPS= AW/J, AW+AC ) 

GO TO 1800 

1700 EPS = SLI ( THETAV . NEPS. TEPS. XEPS) 

1800 QELMEW = EPS * DELME 

SPACV = SLI <THETAV»NVERTM*TSPAV»XSPACV) 

SPACL = SLI (THETAV»NLATTM»TSPAL»XSPACL) 

AK1 =1.089* (10.80 *(1.+SPACL)*( l.+SPACV)*GGO*tRHOL-RHOV)/RHOL)** 

10.5 

AK2 = -EPS*CS*RHOL*DTDPS*UPDTHA/RHOV/HFG 
AK3 = AK2/AK1 
C ESTIMATE NEW ZHT 

1890 ZHT2 = ZHT1+ DHOT*DELTA 
1900 IF ( AK3 ) 1905.1910.1910 
1905 AK3 = HLUAK3 

1910 DELBLZ = ( U . 375*DTANk*AK 3*ZHT2 )** .66667 
NN=-1 
198u N = 0 

NN= NN - 1 
2000 SUM = 0.0 

DO 2100 L = 1.10 
XL=L 

2100 SUM = SUM * 4.**4L-l)*'DELBLZ**(XL+.5) ) /< DTANK**L ) / < 2 . **XL+1 . ) 
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FOfc.LT = 8.0 * SUM/AK3 - ZHT2 
N — N + 1 

iF (N-20) 2200,2300,2300 

2200 IF (ABSlFr'ELT) 00001+ZHT2) 2400 ,2400 ,2250 

?25u SUMM = 0.0 

uO 2270 K = 1,10 
XK = K 

2270 bUrt.v = SUf M + 4 , ** ( K-l ) * ( DELBLZ** ( XK-. 5 ) ) / (DT ANK**K ) 
r HOELT = 4.0* SUMM/AK3 
uLLLiLZ = CtLBLZ - FDfc.LT /FRUELT 

uVj TO 2000 

?oOu PRINT 2310 , DELBLZ, FDELT 

2 3 1 u FOR^aTU ERROR MSG NON-CONVERGENCE DELBLZ =*F 10.S* FuELT a*F10.5) 
2400 0 H u 1 - UVBL2-VBL1) ( XML2-XML1 ) /RHOL) /AC/DELTA 
<_HT2 = ZHT1 ♦ OHDT *OELTA 
IF INN) 1980»19fi0»2bu0 
2n0u iUMaO.O 

JO 2600 L= 1,10 
XL=L 

2 o 0 u SUM = SUM + ( 2 . *XL+ 1 • ) * DELBLZ ** (XL 1 .5) / ( XL *1.5)/ DTANK**(L-15 
VBL2= SUM *3.141o/AK3 
AK 2iXK 1 = AK2/AK1 

FVB L = VbL2-AK2*XMLl*D£LTA/RH0L + 2 . 1* AK 1*DT ANK* : DELBLZ**! . 5 ) * 

1 DELTA - VBL1 

2b 02 IF ( NCONV— 1 ) 2605 , 2609 , 2640 

2 o 0 b NCONV = 1 

SAVAK3 = AK3 
SVFVBL = FVBL 

2o0cs IF (FVBL) 2620,2690,2610 
2 o 0 9 IF (FVBL) 2o40 , 2o90 , 2610 
2b 1 0 AK 3 - 0,1*AK3 
bC TO 1890 
2b20 AK3 = 2.U+AK3 
NCO.Vv = U 
10 1890 

2b4u IFINCONV - 1) 2660, 26bO,264S 
2b4o IF (FVBL) 2660 , 2o90 » 2650 
2 o 5 u b A v A K 3 — AK3 
SVFVBL = FVBL 
AK 3 = AK4 
FVBL = FVPL4 
bC TO 2670 
2660 «K4 = AK 3 

FVBL4 = FVBL 

2b7u IF (ABS(FVBL)-.OOl *VBL2) 2690,2690,2672 
2672 Ak 3 = AK3-FVBL* (AK3-SAVAK3)/(FVBL-SVFV8L) 

AK 3 i 0.5*(AK3 + SAVAK3) 

2679 NCONV = NCONV 4 1 
J = NCONV 
XFVBL(J) = FVBL4 
XSVFVB(J) = SVFVBL 
X A K 4 ( J ) = AK4 
XSAVAK(J) S SAVAK3 
A AK3 i J) = AK 3 
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XVBL2 ( J) = VBL2 

IF (NCONV - 60) 1890*2680, 2680 

2680 PRINT 2685, (XFVBL( J) , XSVFVb ( J) , XAK4 ( J) ,XSAVAK ( J ) , XAK3 ^J) , XVBL2 ( J) 

1 » J=l,80) 

268a FORMAT(*ERROR MSG NON-CONV FVBL = */C6Fl6.8) ) 

GO TO 3000 

2690 DHDT = jUVbL2-VBLl) ♦ ( XML2-XML1 ) /RHOL ) /AC/DELTA 
ZHT2 = ZHT1 ♦ DHOT *DELTA 
H2 = *HT2 
DELH = H2 -HI 

HRATIO =(H2-HTZER0)/HTZER0 

BETA = VBL2* RHOV/ XMLZRO/ ( 1 .-EXP <-CS*lTlNlT-T2 ) /HFG ) ) 

XMVBL2 = VbL2 * RHOV 

XMDTBL = 2.1* AK 1 * DTANK*(DELBLZ**1 .5) *DELTA*RHOv 

xmvap2 = xmvapi-<i.-eps)*delme-delmv*xmdtbl 

VOLLIQ = XML2/RH0L * VdL2 
VOLGAS = VOLT-VOLLIQ 
XMVAP3 s VOLGAS * RHOV 

2700 PRINT 2800 » THETA2 » P2 , T2 » XML2 , XMVAP2 , H2 , DHOT t OELH , HR ATIO » DPOTHA » 

1 DELP, EPS, BETA, VBL2,DELBLZ»AK3»VMD0T,AK1*AK2,AK2RK1, 

2 XMVBL2, XMDTBL, XMVAP3, NCONV 

2800 FORMAT 1/* THETA2 = *F8.2* P2 a *F8.3* T2 * *F8.3* XML2 

1= *F8 • 1* XMVAP2 = *F8.2* H 2 S *F8.4/* DHOT a *F8.4* OELH = 
2 *F8.4* HRATIO = *F8.4* DPDTHA z *F8.3* DELP = *F8.3* EPS * * 
3F8.4/* BETA = *F8.4* VBL2 = *F8,2* DELBL2 = *F8.3* AK3 = * 
4F8.5* VMDOT = *F8.3* AK1 = *F8.4/* AK2 = *F8.4* AK2/AK1 =* 

5 F8.5* XMVBL2 s *F8.3* XMDTBL = *F8,3* XMVAP3 = *F8.3* NCONy = * 

6 18 /) 

2900 IF (P2-PFINAL) 3000 , 3000 , 1000 
3000 IF(MLTP) 4000,4000*50 
4000 STOP 
END 

FUNCTION SLI(A«G,NX»X,Y) 

DIMENSION X(100) »Y(100) 

XA=ARG 
1 = 1-1 

N3=IABSINX) 

5 IF(XA-XU) )170,20»10 
10 IF ( 1-1)20,20,40 
20 1=2 

40 IF ( I-N3) 80,60,60 
60 I=MAX0(2#N3/2) 

80 N2=I 

IFIX(I) )100,100,90 
90 IF(XII)-XA) 140,250,100 
100 DO 120 I=2fN2 

IF(X(I)-XA) 120,250,260 
120 CONTINUE 
140 DO 160 I=N2,N3 

IF(Xd)-XA) 160,250,260 
160 CONTINUE 
170 IF(NX)180, 180,200 
180 IFUA-XIN3) >230,240,240 
200 PRINT 210, XA, (X(U) , J=1,N3) 
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210 FORMAT ( 1 5H1THE ARGUMENT 1 1PE14.7»46H ) WAS NOT IN THE RANGE OF THESLI00250 
1 FOLLOWING TABLE// ( 1P10E12 • 5) ) 

STOP 
230 1=1 

GO TO 250 
240 I=N3 
250 SLI=Y ( I ) 

RETURN 

260 SLI=Y(I-1) + (XA-XU-1) )*(YCn-YiI-l) )/(X(I)-X(I-D ) 

RETURN 

END 

R00 

TITLE LIQUID LEVEL RISE EPS FROM EVOLVE MVOOT = 3.3 


10.0 

21.667 

14.416 

10392. 

16300. 

19.5 

13,8 

38.3 

0.0 

.00031 







1 

2 

11 

2 

2 




0.0 

3.30 

1000. 

3.30 





0.0 

0.0 

20. 

.0513 

40. 

.178 

60. 

.280 

60. 

.362 

100. 

.422 

120. 

.470 

140. 

.520 

160, 

.560 

160. 

.60 

1000. 

.60 



0.0 

1.0 

1000. 

1.0 





0.0 

1.0 

1000. 

1.0 
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TITLE LIOUID LEVEL RISE EPS FRO* EVOLVE MV-,OT * 3*> 

DELTA * io*00 DTAnK * 21*667p hTTEpO « 14,4l60 VOLT ■ 10392*00 X«LZRO ■ 16300*00 

PINIT * l9.500PfIN3L ■ l3**00 TlMlT • 38.*»0TMETIN ■ 0*00 000 * *00031 
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APPENDIX C 


EVOLVE PROGRAM 


This program predicts the bubble dynamics of a bubble population up to 1000 
bubbles in a liquid in a specified gravity-temperature environment. The 
analytical model and an application to the S-IVB vehicle were presented in 
Section 4.4. In this appendix, the input is described, variables are defined, 
and a listing of the program is given. The program listing is followed by a 
typical set of data input cards. These cards describe a model experiment in 
the earth’s gravity field where point heaters generate bubbles at eight locations 
on a heater plate using Freon 11 liquid. The first eight pages of output up to 
time 3.01 seconds show the type of data generated; these include time histories 
of bubble location and velocity in three dimensions and the bubble radius as well 
as overall tank conditions. 
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INPUT DESCRIPTION 



02 


The convention of the above Input Description is summarized: 

List A, B, C, . .. ~*A, B, C, ... 

List (A(j), J=1,N) -* A(l), A(2), A(3), ..., A(N) 

which may require additional punch cards under a particular card type 
to complete N elements. 

The bra [ and ket ] is a subtype card, e.g., 5[l], 5[2], lofl] ... 
lOtNTIZ], which follow consecutively: 


I - 1 { 


5[1] 
5 [ 2 3 


I = 2 { 


5[l] 

5[2] 


1 = nshe { 



loti] 

lOtNTIZ] 

10tl] 

lOtMTIZ] 


I a WTL 


10 [ 1 ] 

10[HTIZ] 


Symbolically, this system is represented by nested loops : 


— Loop over card type number 
(Third Operation) 
i- Loop over bra -ket number 
(Second Operation) 

r Loop over list index 
(First Operation) 


03 


VARIABIE DEFINITION 



NFR0P 

number of entries in the fluid property table ( s 30 ) 


NPTIM 

number of entries in the time versus system parameter 
table 30) 


NRZ 

number of entries in the axial height versus container 
radius table (-2) 


NTL 

number of time entries in the liquid temperature matrix 
(* 15) 


NT IB 

number of radial entries in the liquid temperature matrix 
( s 15) 


NTIZ 

number of axial height entries in the liquid temperature 
matrix 15) 


NRFT 

number of time entries in the time versus bubble site radius 
and frequency table ( 5 10 ) 


NSITE 

number of nucleation sites in the container ( s 100 ) 


NB 

initial number of bubbles present ( s 1000 ) 


iFRmru 

number of printout times requested ( £ 1000 ) 


IS LIP 

0 for no -slip condition at container wall 

1 for slip condition 


IRESTRT 

0 for no restart capability 

1 for restart capability (generates card types 6 and 16) 


IWAKE 

0 no wake interactions 

1 wake interactions 


PFZ(l) 

i^^ 1 saturation pressure (BSIA) entry in the fluid property 
table (must be monotonic) 


TFZ(I) 

fk* 1 saturation temperature (°R) entry corresponding to 
PPZ(l) 


SPZ(I) 

i^h liquid surface tension (LBF/PT) entry corresponding to 
TFZ(I) 


VPZ(I) 

it* 1 liquid viscosity (LBM/FT-SEC) entry corresponding to 
TPZ(I) 


RPIZ(I) 

i th liquid density (LBM/FT 3 ) entry corresponding to TFZ(l) 


UPIZ(l) 

ith liquid specific internal energy (HTU/LBM) corresponding 
to TPZ(I) 

• 
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RPGZ(l) 

UPGZ(l) 

TIMFR0P(l) 

ptim(i) 

qutim(i) 

WMI0TIM(l) 

santim(i) 

gamtim(i) 

GRATIM(I) 

trppim(i) 
xshe( i,i) 

XSITE( 2,1) 
XSITE( 3, I) 
RBSITX(l,j) 
FREQX(l,j) 

TSIPE(I) 

TUTIME(l) 

RZTL(l) 


T 

i gas saturated density (LBM/Fr 0 ) corresponding to 
TPZ(l) 

i th gas specific internal energy (BTU/LBM) corresponding 
to TPZ(l) 

i"th time in the time (SEC) dependent parameter table 

1 th container pressure (PSIA) corresponding to time 
TIMPR0P( I ) 

ith liquid heat rate per unit liquid height (HTU/SEC FT) 
corresponding to time TIMFR0P(l) 

1 th liquid outflow (+) (inflow (-) ) (LBM/SEC) corresponding 
to time TIMPR0P( I ) 

1 th surface angle (radians), clockwise (+) about x-axis 
relative to y-axis (plane of surface always parallel to 
x-axis), corresponding to time TIMFR0P(l) 

ith gravity (or inertial field) angle (radians), clockwise (+) 
about x-axis relative to z-axis (gravity vector always contained 
in y-z plane), corresponding to time TIMFR0P(l) 

ith gravity magnitude (earth's gravity = l) corresponding 
to time TIMPR0P(l) 

i^* 1 time (SEC) in the time dependent bubble site radius 
and frequency table 

ith B ite x-coordinate (FT) 

i^k site y-coordinate (FP) 

i^k site z-coordinate (FT) 

ith B ite bubble radius (FT) corresponding to time TRFTIM(j) 

ith B ite bubble production frequency (SEC“^) corresponding 
to time TRFTIM(j) 

i^k site time of last bubble produced (used in restart, for 
initial problem set to zero); if restart option is chosen, 
these values are punched out in the proper format for use. 

i^k time (SEC) in the time dependent normalized liquid 
temperature matrix 

i th radial coordinate (FT), distance from z-axis, in the 
normalized liquid temperature matrix 


zztl( I ) 


1 th axial z -coordinate (FT) in the normalized liquid 
temperature matrix 


TITIMX(K,J,l) normalized liquid temperature at k radial coordinate, y 



axial coordinate, and i^k time corresponding to (RZTL(K), 
ZZTL(j), TITIMB(l)). This input is multiplied by the bulk 
liquid temperature calculated from the liquid energy equation 
to obtain the local temperature of the liquid. 

RAOTX(l) 

ith container radius (FT ) 

zra.dt(i) 

ith container axial height (FT) in the height versus 
radius table 

timfrnt(i) 

ith printout time (SEC) desired 

REIN 12 

Reynolds number transition between regions I and II of bubble 
dynamics (normally ~ 80 ) 

REYN 23 

Reynolds number transition between regions II and III 
(normally ~ 5000) 

AC0F( 1 ) 

constant coefficient in region I (normally ' 24) 

EXPN(l) 

exponent coefficient in region I (normally --1.0) 

AC0F(2) 

constant coefficient in region II (normally ~ 1.975) 

EXFN (2) 

exponent coefficient in region II (normally ~ 0.5) 

AC0F( 3 ) 

constant coefficient in region III (normally ~ 2.5) 

EXFN(3) 

exponent coefficient in region III (normally ~ 0.) 

DML1 

initial liquid mass (LBM) 

TSUPRL 

maximum superheat of liquid (°R), difference between 
saturation temperature and maximum liquid temperature (+) 

RBMIN 

minimum bubble radius (FT ) permitted, below this value the 
bubble is assumed to collapse, must be greater than zero 

DTIMEX 

time increment (SEC) 

TIME 

initial time (SEC) 

HG 

bubble heat convection coefficient (HTU/SEC FT 2 ) 

TIMEND 

problem stop time (SEC) 

TBUIKL 

initial liquid temperature (°R) 

parimp 

impact parameter (FT), the distance at which two bubbles 
coalesce (normally zero) 

PIMPS 

surface impact parameter (FT), the distance at which a bubble 
coalesces with surface 


r-fi 


ZSTJRF 


initial surface height (FT ) estimate 


CWAKX 

arbden 

DEGFAC 

SCRAD 

XB(l,l) 

XB(2,l) 

XB(3,I) 

RB(I) 


wake parameter (normally zero, which stimulates program 
to use built in coefficient ~ 0.288) 

arbitrary weighting factor, which proportions the partitioning 
of vapor produced between the liquid -ullage interface and the 
total area of bubbles in the liquid medium (normally one) 

degeneracy factor, which accommodates consideration of a 
representative sector of the container (care must be taken 
that the bubble cross sections do not grow larger than the 
sector); this parameter reduces the program run time for 
problems which have geometric similitude and is equal to 
the number of sectors in the total cross section, (normally 
one). 

pore radius (FT) of the container wall used to calculate 
the escape of bubbles from the container (normally zero) 

fkh bubble x -coordinate (FT) of center of mass for bubbles 
initially present or for restart (punched out in proper 
format ) 

i^* 1 bubble y-coordinate (FT) 
ith hubble z -coordinate (FT) 
i** 1 bubble mass radius (FT) 


appendix c 

PROGRAM LISTING FOR EVOLVE 


REQUEST ( EVOLVE r HI # R , 10=10188 ) 

RUN (S* t »m m>1) 

REWINO(LGO) 

C0PY8F (LGO»EVOLVE) 

SET(O) 

EVOLVE ( LC » 50000 ) 

UNLOAD(EVOLVE) 

EXIT. 

UNLOADIEVOLVE) 

R 

PROGRAM EV0LVE( INPUT » OUTPUT » TAPE5=INPUT»TAPE6=0UTPUT#PUNCH) 
COMMON/PROPHT/PPZOO) »TPZ(30) »SPZ (30 ) r VPZ< 30 ) »RPLZ( 30) »UPLZ(30 ) t 
X RPGZ ( 30 ) » UPGZ ( 30 ) 

COMMON/DYNAM/TIMPROP(30) »PTIM(30) »QLTIM(30) »WMLOTIM{30) »SANjIM( 3Q) 
X »GANTIM(30) »GHATIMt30) 

C0MM0N/TLIQX/TLTIMX(15» 15» 15) »TLTIMEI 15) »RZTL(15) »ZZTL(15) 
COMMON/SITEX/RBSITX(100»10) »FREQX(100»10) »XSITE(3»10U) »TSITE(100) » 
X TRFTIM(IO) 

C0MM0N/TANKX/RADTX(10) »ZRADTXdO) 

COMMON/BUBBLE/WAKV (3» 1000 ) rVt»(3» 1000) »XB(3» 1000) »RB( 1000) » 

X RBA(IOOO) »IB(1000) »DMBGF(1000) >DMB(1000) tCDRAG(loOO) 

COMMON/CONVERG/DBU0CO » OLIQCO t DLEVCO , DCONCO » OENRCO , DFORCO 
COMMON/SUPFAS/ZSURF»SURFAN,ISLIP 

C0MM0N/LICUID/WML0#DMLl»DMLBF#TSUPRLr0L»REYN12»REYN23»AC0F(3) » 

X EXPN(3) »TBULKL 

COMMON/GASPRO/HG » RBMIN t NB 

COMMON/GNRL/DTIME»OTIMEX,TIM£ND»TIMPRNT(1000) #IPRINTL,IPRINTU» 

X NTAPE»IRESTRT»TIME,PIMPS»PARIMP 

COMMON/VO IO/VOFRAC » DmBTOT 

COMMON/INTEGR/NTL»NTLR»NTLZ#NRFT»NSlTE»NRZ»NPTIM#NPPOP , i wake 
C0MM0N/ADC0NST/CwAKE»BwAKE»SCRAD»ARBDEN,DEGFAC»ICRD(3) 

NTAPE=6 

CWAKErO.Zea 

CALL HXCPdCROd) ) 

KCPE=ICRO(l) *2008+228 
ICRD(2)=MI0RF(KCPE) 

N=2b 

L=12 

ICR0(2)=L6YT(N,L»ICRJ(2) ) *8 
CALL INITIAL 
CALL GOD 
IF ( IRESTRT ) 1 » 1 »2 
2 CALL RESTART 
1 CONTINUE 
ENO 

SUBROUTINE INITIAL 

COMFON/PROPRT/PPZ(30) »TPZ (30) »SPZ (30) »VPZ( 30) #RPLZt 30) »UPLZ( 30) » 

X RPGZ(30) »UPGZ(30) 

COMKON/DYNAK/TIMPROP(30) rPTIM(30) .QLTIM(30) »WMLOTIM(30) »SANTIM(30) 
X #GANTIM(30) fGRATIM(30) 

C0MM0N/TLI0X/TLTIMX(15»15d5) »TLTIME(15) »RZTL(15) »ZZTL(15) 

COMMON/S ITEX/RBSITX (100 » 10) »FREOX ( 100 dO ) » XSITE (3, 100 ) f TSITE (100 ) t 
X TRFTIM(IO) 

COMFON/T ANKX/RADTX ( 10 ) » ZRADTX ( 10 ) 
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COMMON/ BUBBLE /WAKV (3,1000) , VB ( 3> 1000 ) » XB ( 3 , 1 000 ) , RB ( 1000 ) , 

X RBA(IOOO) ,IB(1U00)» DMBGF ( 1000 ) , DMB (1000) ,CDRAG(1000) 

CUMMON/CONVERG/DBUBCO,DLIQCO»DLEVCO,DCONCO,DENRCO r DFORCO 
COMK: ON/SURF A S/ZSURF » SURF AN, I SLIP 

COMMON/LICUID/WMLO , DML1 , DML8F , JSUPRL , OL »REYN12 , REYN23 , ACOF ( 3 ) » 

X EXPN ( 3 ) , TBULKL 

COMMON/GASPRO/HG,RBMlN,NB 

COMyON/GNRL/DTIME»DTlMEX»TIMtND»TlMPRNT(1000) »IPRINTL,IPRINTU» 

X NTAPE, IRtSTRT, TIME, PIMPS, PAFIMP 

COMMQN/VOl U/VOFRAC » DMBTOT 


COMMON/ INTtGR/HTL»NTLR>NTLZ,NRFT,NSlTE,NRZ,NPTIM,NPRoP, I WAKE 
COMMON/ ADC ONST/CwAKE »B wAKE,SCRAD» ARBDEN ,DEGFAC , ICRU ( 3 ) 


1TAPE=5 


<vRITE(NTAPE,100) 

100 F0RMAT(1H1»49X»19H INITIAL CONDITIONS///) 
KEAOlITAPE»101)NPROPrNPTI^rNKZ»NTL»NTLR»NTLZrNRFT ,NSITE>NB» 

X IPRINTUr ISLIPf iRESTRTr IWAKE 

101 FORi« AT(20I4) 

UO 20 I=l,NSITt 
?U TSITL(I)=0. 

T IkiE-0 • 

RL Au 1 1 T Apt » 102 ) (PPZ( I) »TPZ( I) rSPZ(I ) r VPZ( I) »RPLZ . I ) , UPLZ ( I ) , 

X RPGZ(l) »UPGZ(1) ,I=l,NPROP) 

102 FORMAT(BEIO.O) 
wKITt (NTAPt ,103) 

103 FORMAT ( 117FI PRESSURE TEMPERATURE SURF TENSION VISCOSI 

XTY LIU DENSITY LIQ ENERGY GAS DENSITY GAS ENERGY//) 

WRITE (NTAPE, 104) (PPZ(I) ,TPZ(I ) ,SPZ(I ) , VPZ( I ) r RPLZ { I ) MlPLZ(I) , 

X RPGZ(I) ,UPGZ(I),I=l,NPROP) 

104 FORMAT ( 8 (2X »£13 ,6) ) 

READ (ITAPE> 105) ( T IMPROP ( I ) , PT IM ( I > ,QLTIM( I ) , wMLOT IM ( I ) ,SANTIM(1 ) , 

X GANTIM(I) , GRAT IM ( I ) >I=1,NPTIM) 

105 FORMAT ( 7E1 0 , 0 ) 


wR I TE ( NTAPt , 10b ) 

10o FORMAT(///,102H TIME PRESSURE LIU HEATING LIQ 

XFLOW RATE SURF ANGLE GRAV ANGLE GRAVITY//) 

WRITE (NTAPE, 107) (TIMPROPt I) ,PTIM(I) ,QLTIM(I) ,WVL0TIM( 1 ) ,SANTIM( I ) , 
X 6ANTIM ( I ) , GRAT IM ( I ) , 1=1 ,NPTIM) 

107 FORMAT (7(2X,E13«6) ) 

READ (IT APE, 102) (TPFTIM(I) ,I=1,NRFT) 

DO 1 N=1,NS1TE 

READ (ITAPE» 102) XSITE ( 1 , N ) , XSITE ( 2 , N ) , XSITE ( 3 , N ) 

1 READ (IT APE, 102) (RBSITX(N,I) ,FREQX(N,I) ,I=1,NRFT) 

READ(ITAPE,120) (TSITE(I) ,I=1»NSITE) 

DO 2 N=1 » NS1TE 

WRITE (NTAPt, 110 )N, XSITE ( 1 »N) , XSITE (2»N) , XSITE ( 3 , N ) , TS ITE ( N ) 

108 F0RMAT(///»42H TIME SITE RADIUS SITE FREQ//) 

110 FORMAT (///» 13H SITE HUMBER I4,5X,7H XSITE=El3 . 6 , 5X , 7H YSITE=E13.6, 

X 5X,7h ZSITE=E13.6,5X,14H INITIAL TIME=E13.6) 

wRHE(NTAPt, 106) 

DO 2 I=1,NRFT 

2 WRITE (NTAPE, 111 ) TRFTIM ( I ) ,RB5ITX IN, I ) ,F&EQX (N, T ) 

111 FORMAT (3(2X,El3«b) ) 


READ t IT APfc , 1 U2 ) (TLTIME(I) , 1 = 1 , NTL ) 


READ (ITAPE# 102) (RZTL( I) #1=1 »NTLR) 

READ 4 IT APE » 102 ) (ZZTL ( I ) r 1=1 »NTLZ) 

DO 3 I=1»NTL 
DO 3 J=1 rNTLZ 

3 READ (ITAPE #102) ( TLTIMX ( K , J, I ) ,K=1 ,NTLR ) 

DO 4 1=1, NTL 

WRITE(NTAPE,112)TLTIME( I ) 

112 F0RMAT(///»11H TIME=E13.6//) 

WRITE(NTAPE,113) 

113 FORMAT ( 46H RADIUS AXIAL HEIGHT NORM TEMPERATURE//) 

DO 4 J-l #NTLZ 

DO 4 K=1,NTLR 

4 WRITE (NTAPE » 114) RZTL (K )# ZZTL (J) » TLTIMX (K»J» I) 

114 FORMAT (4 (2X»El3»b) ) 

READ ( ITAPE # 102) (RADTX ( I ) # ZRADTX ( I ) # 1 = 1 ,NRZ) 

READ ( IT APE » 102 ) (TIMPRNT4 1 ) » 1=1 , IPRINTU) 

WRITt(NTAPE.115) 

115 FORMAT ( /// » 29H TANK RADIUS AXIAL HEIGHT//) 

DO 5 I=1#NRZ 

5 WRITE (NT APE » 114) RAOTX ( I ) » ZRADTX ( I ) 

READ (ITAPE»1Q2)REYN12» REYN23# ACOF (l)r EXPN< 1 ) , ACOF4 2 ) »EXPN(2) , 

X ACOF (3) ,EXPN(3) 

WRITE (NT APE ,118) 

118 FORMAT ( /// » 117H REYNOLDS 1-2 REYNOLDS 2-3 ACOEF 1 EXPO 

XNENT 1 ACOEF 2 EXPONENT 2 ACOEF 3 EXPONENT 3 

X//) 

WRITE(NTAPE»104)REYN12»R£YN23»ACOFU) »EXPNU) #AC0Fi2) ,EXPN(2) # 

X ACOF ( 3) #EXPN(3) 

READ (ITAPE# 102) DML1,TSUPRL,RBMIN,DTIMEX,TIME#HG,TIMEND,TBULKL 
WRITE(NTAPE,116) 

116 FORMAT (///»120H LIQUID MASS LIQ SUPRHEAT MIN RADIUS TIM 

XE STEP TIME ZERO BUBBLE CONv H TIMEND LIQUID T 

XEMP//) 

WRITE (NT APE ,104) DML1 ,TSUPRL»RBM IN, DTIMEX# TIME, HG»TIMEND»TBULKL 
READ ( IT APE # 102 ) PAR IMP , P IMPS » ZSURF , CwAKX , ARBDEN » DEGFAC , SCRAD 
IF(CwAKX-0.001)500r500»501 
501 CWAKErCWAKX 
500 CONTINUE 

BWAKE=1.222*CWAKE**(-.267) 

CWAKE=0.202*CWAKE**(-.B) 

WRITE(NTAPE,119) 

119 FORMAT (///»118H BUB IMP PARAM SURF IMP PARAM ZSURF ZERO C 

XWAKE BWAKE BOILING PARAM SPATIAL DEGEN SCREEN RADIU 

XS//) 

WRITE (NTAPE» 104 )PARImP» PIMPS# ZSURF »CWAKE»BWAKE» ARBDEN, DEGFAC »SCRAD 
IF(Nd)6»6»7 

7 DO 21 1=1, NB 

21 READ ( ITAPE # 120 ) XB ( 1 » I ) ,XB(2,1) , XB(3, I) ,RB(I) 

120 FORMAT (6E13«6) 

DO 8 1=1 #NB 

8 kBA(I)=RB(I) 

WRITE(NTAPE,117) 

117 FORMAT(///#56H XB(1) XB(2) XB43) RA 

XDIUS//) 
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DO 9 1=1 »NB 

9 wR ITE (NT APE »114)XB(1»I) » XB(2» I ) »XB(3» I) »RB( I ) 
b CONTINUE 
RETURN 
END 

SUBROUTINE GOD 

COM|»ON/PROPRT/PPZ(30) »TPZ(30) »SPZ ( 30 ) ' VPZ ( 30 ) »PPLZ ( 3U ) , UPLZ ( 30 ) > 

X RPGZ ( 30 ) » UPGZ ( 30 ) 

C0MMON/DYNAM/TIMPP0P(30) »PTIM(30) »QLTIM<30) »WPLOTIM(30) »SANTIM(30) 
X »GANTIM(30) »GRATiM(30) 

CQMMON/TLIQX/TLTIMX ( 15 » 15 * 15 ) »TLTI«E ( 15 ) »RZTL ( 1 5) , ZZTL ( 15 ) 
COMMON/SITEX/RBSITX(10 0»1U) ,FREQX(100»10) »XSITE(3,inO) »TSITE(100) , 
X TRFTIM(IO) 

COMWON/TANKX/RADTX(lO) »ZRAOTX(10) 

COMMON/BUBbLE/wAKV ( 3 » 1 GOO ) »Vb(3»l000) »XB(3rl00n) #R6(1000) » 

X RBA(lOuO) » lb (1000), DMBGF( 1000) ,DMB ( 1000 ) , CDRAQ ( loOO ) 

COMPON/CONVERG/DBUBCO»DLIOCOrDLEVCO»DCONCO»DENRCO f UFORCO 
common/surfas/zsurf»surfan, islip 

C0MM0N/LICUID/WML0,DML1»DMLBF,TSUPRL»GL,REYN12»REYN23,AC0F(3) . 

X E XPN ( 3 ) , TBUlKL 

COMMON/GASPRO/HG,R8MIN»NB 

COMN;ON/GNHL/OTIME#DTIMEX,TIMEND»TIMPRNT(1000) r iprintl, iprintu, 

X NT APE » IRE5TRT » T IME, PIMPS » PAP IMP 

COMMON/ VO 10/ VOFRAC,DMBTOT 

COMMON/ 1NTEGR/NTL»NTlR»NTLZ#NRFT»NSITE»NRZ»NPTIM»NPROP, i wake 
COMMON/ ADCONST/C WAKE »B WAKE »SCR AD »ARBDEN,DEGF AC » ICRO( 3) 

1PRINTL=1 
CALL FANTASY ( 0 ) 

9 XF(TIME-TIMEND) 1,2»2 

2 CALL FANTASY ( 2 ) 

RETURN 

1 SURFANrLEVANG(TIME) 

CALL BIRTH 
CALL LIQLEV ( 0 • ) 

CALL LIOENKG(TIME»DTIME» WMLO»OL) 

3 CALL LIQUID 
IF ( iMd ) 5 » 5 » 6 

b CALL BUBKIN 
5 CALL LIQLEV(DTIME) 

ZSURFT=ZSURF 
IF ( Nb ) 7# 7 » 8 
b CALL LOVE 

CALL LIOLEV(DTIME) 

IF l ZSURF-ZSURFT+RBMIN ) 81,7,7 
Ci ZSURFT=ZSUHF 
GO TO 8 

7 TIME=TIM£+DTIME 

KCP=iCRD(l)*200B+23B 
ICPrMIORF (KCP) 

N=13 

L=24 

ICP=LBYT(N,L, ICP) 

IF ( ICP.GT. (ICRD(2)-4) )GO TO 2 
IF(IPRINTL-IPRINTU)lU,10,9 
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10 IF ( TIME-TIMPRNT ( IPRINTL) )9#U#ll 

11 iprintl=iprintl*i 

IF (TIME-TIMPRNT( IPRINTL) )12r 11 » 11 

12 CALL FANTASY(l) 

GO TO 9 

END 

SUBROUTINE FANTASY (NOUT ) 

C0MM0N/PR0PRT/PPZ(30) #TPZ< 30) »SPZ (30) »VPZ< 30) »RPLZ< 30), UPLZ( 30) » 

X RPGZ ( 30 ) » UPCZ ( 30 ) 

C0MM0N/CYNAM/TIMPROP(30) »PTIM(30) ,QLTIMT30) #WMLOTIM<30) »SANTIM(30) 
X #GANTIM(30) #GHATIMf30) 

COM(M0N/TLIQX/TLTIMX(15»15»15) »TLTIMEC15) #RZTL(15) ,ZZTLU5) 

COMMON/S ITEX/RBSITX <100# 10 ) ,FREQX(100 #10) »XSITE(3# 100) ,TSITE( 100 ) » 
X TRFTIM(IO) 

COMMON/T ANKX/RAOTX ( 10 ) » ZRADTX { 10 ) 

COMMON/BUBBLE/ WAKV ( 3# 1000) »VU(3» 1000) »XB(3»1000) »RBC1000) » 

X RBA(IOOO) »IB(1U00) »OMBGF f 1000 ) »OMB( 1000 )# CDRAG ( 1000 ) 

COMMON/CONVERG/DBUBCO»DLIOCO»OLEVCO,DCONCO»DENRCO,UFORCO 
COMMON/SURFAS/ZSURF#SURFAN»ISLIP 

COMMON/LICUID/wMlO,DML1#DWLBF#TSUPRL#QL#REYN12#REYN23,ACOF(3) # 


X FXPN( 3) # TBULKL 

COMMON/GASPRO/HG#RBMIN#NB 

COMMON/GNRL/DT IME»OTIMEX»TIMt.ND»TlMpRNT( 1000 )# IPRINTL, IPRINTU# 

X NT APE# IRESTRT »TIME, PIMPS# PARIMP 

COMMON/VOID/VOFRAC#DmBTOT 

COMMON/ INTEGR/NTL » NTLR # NTLZ , NRFT # NSlTE # NRZ , NPTIM , NPROP , I WAKE 
COMMON/ADCONST/CWAKE,BWAKE,SCRAD,ARBDEN,DEGFAC»ICRD(3) 

IF ( NQUT-1 ) 1 #2# 3 

1 WRITE (NTAPE#100) 

100 FORMAT ( 1H1 »///24X» 71H PROGRAM EVOLVE*** THE TEMPORAL AND SPATIAL 
XHISTORY OF A BUBBLE SOCIETY///) 

RETURN 

2 WR ITE (NT APE # 101 ) 

101 FORMAT ( /// » 117H TIME PRESSURE LIQUID MASS LEVE 

XL ANGLE LEVEL HEIGHT VOID FRACTION VOID MASS GRAv ANGLE 
X /) 

P=PZ(TIME> 

SURFIN=SURFAN*57.2958 

GRA=57.2958*GRANGL(TIME) 

WR ITE (NTAPE #102) TIME, P,DML1,SURFIN»ZSURF,V0FRAC,DMBT0T,GRA 

102 FORMAT (8(2X#E13*6) ) 

IF (NB )4»4» 5 

5 WRITE (NT APE# 103) 

103 FORMAT (///»119H XB(1) XB (2 ) XB(3) V 

Xfc(l) VB(2) V8(3) MASS RADIUS ACTUAL RADI 

XUS/) 

DO 6 1=1 »NB 

6 *RITE(NTAPt,102)XB(l,I) #XB(2»I)»XB(3#I) »VB(1#I) #VBt2»I) #VB(3»I) » 

X RBA ( I ) # RB ( I ) 

4 CONTINUE 

WRITE(NTAPE,104) 


104 FORMAT ( /»119H *************************************************** 


X*///) 
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RETURN 

3 WR I TE (NT APE * 105 ) 

10b FORMAT ( /// » 45X * 27H THIS IS THE FINAL PRINTOUT//) 

00 TO 2 
END 

subroutine: birth 

COMMON/PROP8T/PPZ(30) *TPZ( 30) *SPZ( 30) »VPZ( 30) *RPLZ( 30) ,UPLZ( 30) » 

X RPGZ(3U) *UPGZ(30) 

COMMON/OTMAM/TIMPROPOO) »PTIM(30) »QLTIM(30) »WML0TIWI(30) »SANTIM(30) 
X >GANTIM(30) ,GRATiM(30) 

C0MM0N/TLIUX/TLTIMX(15*15*15)*TLTIME(15)*RZTL(15) *ZZTL(15> 
COMMON/SITEX/RBSITX(100*10) »FREOX(100»10) »XSITE(3,100) »TSITE(100) » 
X TRFTIM(IO) 

COMN Oin/T Al iK X/RaDTX (10)* ZRAOT X { 1 0 ) 

COMMON/BUBBLE/WAKV(3* 1000) » Vt>(3, 1000) » XB(3» 1000) *R6{ 1000) > 

X RBA(IOUO) »IB(1UOO) »DMBGF (1000 ) * DMB ( 1000 ) ,CDRAG ( 1000 ) 

COMN'ON/CQNV£RG/D8UBCO,OLIQCO»DLEVCO,DCONCO»DENRCO,OFORCO 
COMHON/SUPFAS/ZSURF»SURFAN, islip 

COMMON/LICUID/WMLO,UML1*DML6F*TSUPRL*QL*REYN12*REyN23,ACOF(3) » 

X EXPN(3) »TBUlKL 

COMMON/GmSPRO/HG*RBMIN*NB 

COMnON/GNRL/DTIME * OTIMEX » TIMEND* TIMPRNT (1000 ) » IPRINTL » IPRINTU* 

X NTAPE» IRESTRT»TI«ErPIPPS»PARIMP 

COMMON/ VO ID/ VOFRAC » DMBTOT 

common/ integr/ntl*ntlR.ntlz*nrft»nsite»nrz»nptim,nprop,iwake 

COMMON/ ADCONST/C*AKE,BwAKE*SCRAD,ARBDEN,DEGFAC*ICRD< 3) 

OMLHFrO. 

NBMAX=1000 

NBNrO 

DT=bTIMEX 

IFIRST=0 

10 DO 1 I=1»NS1TE 
TST=TSITE(I) 

FREw=FREUZT(I,TST*TlME) 

XSURR=XS ITt (2*1) *TAN ( SURFAN ) r^suRF 
IF ( XSURP-XSITE (3*1) ) 19* 19* 18 
19 TSITE( I)=TIME 
GO TO 1 

ltt IF (FREQ) 1*1*2 

2 IF ( ( T IME-TST ) *FREQ"0 . 999999 ) 0*4* 4 

4 hBN— NBN - 1 

IF (nB-NBN-NBMAx) 14*14*15 
lb NBN— WBN—1 

wR I TE ( NT APE * 100 ) 

100 FORMAT (55H BUBBLE NUMBER LIMIT EXCEEDED , LAST ONE DROPPED*CONTINUE) 
GO TO 1 

14 XB ( 1 * NB+-NBN ) =XSITE (1*1) 

XB ( 2 » NB+NBN) rXSITE (2*1) 

XB(3*NB+NBN)=XSITE(3*I ) 

KBA(.N3+NBN)=RBSITZ( I »TIME) 
kB ( Nb-rNBN ) =RBSITZ ( I * T IME ) 

TSI r£(I)=TlME 
oO TO 1 

3 IF ( (TINE CT-TST ) *FREu-l , ) 1 * 5 ► 5 
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5 IF ( IFIRST)6r6f 7 

6 DTS1./FRE04(TST-TIME) 

60 TO 1 

7 NBN=NBN*1 

IF(NB+NBN-NBMAX)16»16»17 
17 NBN=N§N-1 

WRITE (NT APE, 100 ) 

GO TO 1 

16 XB(1,NB*NBN)*XSITE(1,I) 

XB(2»NB*NBN)*XSITE(2» I) 

XB ( 3 * NB+NBN ) SXSITE ( 3 , I ) 

TSITE ( I ) sTIME+OT 
RBA(NB*NBN)=RBSITZ(I,TIME> 

RB ( NB-rNBN ) =RBA ( NB+NBN ) 

1 CONTINUE 

IF ( IFIRST )8»8»9 

8 IFIRSTzl 
GO TO 10 

9 NBSNB+NBN 
DTIMErDT 

IF (NBN) 11,11,12 

12 NB1=NB-NBN+1 
UO 13 I=NB1»NB 

TL=TZ(XB(1»I) ,XB(2» I) »X8(3,I) »TIME) 

P=PZ ( TIME ) +2 . *SIGZ ( TL ) / ( 144 . *RBA ( I ) ) 

RHOG=RHGZ(P) 

13 DMLBF=DMLBF+3 . 1416*4 . *RHOG*RBAf I ) **3/3 . 

11 RETURN 

END 

SUBROUTINE LIQENRG(TIM,DT»WMLO,QL) 

COMMON/PROPRT/PPZ ( 30 ) » TPZ (30 ) »SPZ (30 ) , VPZ ( 30 ) , RPLZ ( 30 ) , UPL2 ( 30) » 

X RPGZ(30) »UPGZ(30) 

COMMON/DYNAM/TIMPROP(30> »PTIM(30) ,QLTIM<30) ,WML0TIM(30) »SANTIM(30) 
X »GANTIM(30) #GRATIMt30) 

C0MM0N/TLIGX/TLTIMX(15»15»15) »TLTIMEC15)»RZTL(15) ,ZZTL115) 
COMMON/SITEX/RBSITX(100»10) ,FREQX( 100,10) > XSITE (3, 100 ) ,TSITE(1Q0) , 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX ( 10 ) » ZRADTX (10) 

COMMON/BUBBLE/WAKV(3»1000> ,VB(3»1000> ,XB(3,1000) ,RB(1000) » 

X RBA(IOOO) rI8(1000) »0MBGF(1000) »DMBUOOO ) ,CDRAG ( 1000 ) 

COMMON/CONVERG/DBUBCO,DLIQCO»DLEVCO,DCONCO,DENRCO,DFORCO 
C0MM0N/SURFAS/2SURF»SURFAN,ISLIP 

C0MM0N/LICUID/WML0rDMLl»DMLBFrTSUPRL»QL»REYNl2»REYN23,AC0F(3) » 

X EXPN ( 3) , TBULKL 

common/gaspro/hg,rbmin»nb 

COMMON/GNRL/DTIME»DTIMEX»TIMEND»TIMPRNTUOOO) »IPRINTL,IPRINTU, 

X NTAPE»IRESTRT»TIME»PIMPS»PARIMP 

COMMON/VOIO/VOFRAC , dmbtot 

COMMON/INTEGR/NTLrNTLR»NTLZrNRFT»NSlTE»NRZ»NPTIM»NPROP r IWAKE 
C0MM0N/ADC0 nST/CWAKE,BWAKE,SCRAD,ARBDEN,DEGFAC,ICRD<3) 

T1=TIM 

T2=TIM*DT 

CALL TABL(Tl»WMlrTIMPROP(l) ,WML0TIM(1) ,1,1#1»NPTIM»IFB) 

CALL TABL(T2rWM2»TIMPROP(l) ,WML0TIM(1) ,1,1,1 r NPTlM»IFB) 
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CALL TABL(T1,QL1*TIMPR0P(1) *«LTIM(1) *1,1,1,NPTIM*IFB) 

CALL TABL(T2,QL2*TIMPR0P(1) »ULTIM(1> *1»1*1*NPTIM,IFB) 

QL= ( QL1+QL2 ) *2SURF/2 . 

WML0=(*Ml*WM2)/2. 

RETURN 

ENO 

SUBROUTINE LIQUID 

COMMON/ PROPRT /PPZ ( 30 ) , TPZ ( 30 ) »SP2 ( 30 ) » VP2 ( 30 ) »RPLZ ( 30 ) ,UPLZ ( 30 ) * 

X RPGZ(30) ,UPGZ(30) 

C0MMON/DYNAM/TIMPROP(30) »PTIM(30) *QLTIM<30) #WMLOTIM(30) ,SANTIM(30) 
X » GANTIM ( 30) »GHATIM(30) 

COMMON/TLIOX/TLTIMX(15,15*15) ,TLTIME(15)»RZTL(15) ,ZZTL(15) 
COMMON/SITEX/RBSITX(100,1U) ,FREQX(100,10) »XSITE (3,100) ,TSITE(l00) , 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX ( 10 ) * ZRADT X { 10 ) 

COMMON/BUBBLE/WAKV(3,1000) *VB(3*l000) »XB(3,1000) ,R6(1000) * 

X RBA ( 1000 )» IB (1000) *DMBGF (1000 ) *DMBU00U ) , CDRAG ( 1000 ) 

COMMON/C ON VERG/DBUBCO , DLIQCO *DLEVCO,DCONCO ,DENRCO » DFORCO 
common/suhfas/zsupf,surfan, ISLIP 

C0MM0N/LICUID/wML0,DML1,DMLBF,TSUPRL*QL,REYN12»R£YN23,AC0F(3) , 

X EXPN ( 3 ) , TBULKL 

C0MM0N/GASPR0/HG,RdMlN,N6 

COMMON/GNRL/DTIME , OTIMEX , TIMEND » TIMpRNT ( 1000 ) * IPRINTL, IPRINfU, 

X NTAPE* IRESTRT* TIME, PIMPS* PARIMP 

COMMON/VOID/VOFRAC,DMBTOT 

COMMON/ INTEGR/NTL»NTLR»NTLZ,NRFT,NSlTE,NRZ,NPTIM,NPROp, I WAKE 
COMMON/ ADCONST/C WAKE , BWAKE , SCRAD , ARBDEN ,DEGFAC , ICRD ( 3 ) 

DCON=l, 

Pl = PZ (TIME ) 

P2«PZ (TIME+DTIME) 

TSATL1=TSZT (Pi ) *TSUPRL 
TSATL2=TSZT ( P2 ) +TSUPRL 
TB2=TBULKL 
UL1=ULSZ (TBULKL) 

ULS1=ULS2(TSATL1) 

ULS2=ULSZ(TSATL2) 

PVl=Pl/RHZL(TBULK) *0.1851 
HGST1=UGSZ ( PI KPl/RHGZI PI) *0.1851 
0ML1=DML1-DMLBF*DEGFAC 
IF (DML1 ) 61 *62,62 

62 IF ( TBULK-TSATL1 ) 63 , 64 » 64 

64 ISAT=1 

tbulk=tsatli 

GO TO 65 

63 ISAT=0 

65 IF (P2-P1 ) 66, 66, 67 
67 ISAT=0 

66 IT = 0 
ITMAX=50 
ASSIGN 7 TO IS1 
ASSIGN 8 TO IS2 
TML0=0. 

P11=P1 

DTLO=DTIME 
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DTLITsO. 

TFRACsl, 

PIT=P2 

0MLIT=DML1 

DT6IT=DTIM£ 

DMFG=0. 

TLIT=TSATL2 
IF ( ISAT) 2t 2# 1 
2 OTLIT=DTIME 
DTLITsDTLO 

PIT=PlMiP2-Pl ) /OTIME) *DTLIT 
TLIT=TS2T<PIT> 

RHOLITsRHZL(TLIT) t 

ULIT=ULSZ(TLIT) 

11 DMLIT=OMLl-WMLO*DTLIT 
DQL=QL*DTLIT 

OTEST=<DMLIT*ULIT-OML1*UL1*(CUL1*UEIT#0.1851*(PV1>PIT/RHOLIT) ) 
X /2.)*(DML1-D«LIT))-D0L 

TMLOsDMLl-OMLIT 

IF(ABS<QTEST)-0.001*OCON*DML1)5»5»6 

6 IF(QTEST)200»5»201 

200 GO TO IS1#17»9» 19#21) 

201 GO TO IS2» (8»9»10*21»22) 

7 ISAT=1 

ASSIGN 9 TO IS1 
ASSIGN 10 TO IS2 
QTFIX=DML1*(ULIT-UL1) 

OTFIXsO. 

GTSAVEsOTEST 
DTSAVEsDTLlT 
9 IT=IT t 1 

DTLIT=(QTEST*DTFIX-QTFIX*DTLIT)/<QTEST-QTFIX> 

PITSP1+UP2-P1 ) /DTIME) *DTLIT 
TLIT=TS2TCPIT) 

RH0LIT=RHZL(TLIT> 

ULIT-ULSZ ( TLIT) 

IF(IT-ITHAX)11,11,12 
10 QTFIX=®TSAVE 
DTFIXrOTSAVE 
ASSIGN 7 TO IS1 
ASSIGN 9 TO IS2 
GO TO 9 

12 CONTINUE 

5 IF(DTLO-OTLIT > 13 » 13 » 14 

13 IF (DTLO-DTIME ) 61 » 15> 15 
15 0ML1=DMLIT 

TBULKL=TLIT 
GO TO 17 

8 GTFIXsQTEST 
TLFIX=TLIT 
ASSIGN 19 TO IS1 
ASSIGN 8 TO IS2 

TLI T=TL I T- ( TSATL2-TBULKL ) -0 . 5 
18 IT=IT+1 
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ULIT=ULSZ(TLIT) 

RHOLITSRHZL(TLIT) 

IF(IT-ITMAX)U, 11*12 
19 QTSAVEsQTEST 
TLSAVE=TLIT 
ASSIGN 21 TO IS1 
ASSIGN 22 TO IS2 

21 TLIT=(QTEST*TLFIX-«TFlX*TLIT)/fQTEST-QTFIX) 

GO TO 18 

22 QTFIX=GTSAVE 

tlfix=tlsave 

ASSIGN 21 TO IS2 
GO TO 21 
14 UL1=ULIT 

PV1=PIT/RHOLIT*0.1851 

dtgit=otgit-dtlit 

TLIT=TSATL2 

P11=PIT 

PIT=P2 

IT=0 

1 HGIT=UGSZ( PIT )*PIT/RHGZ (PIT) *0.1851 
ULIT=ULSZ ( TSATL2) 

RHOLlT=RHZL (TSATL2) 

HLA=(UL1tULIT+0.1851*(PV1*PIT/RHOLIT) )/2. 

HFGA=(HGSTl+HGIT)/2.-HLA 

OMLG=WMLO*DTGIT 

DQL=QL*DTGIT 

DML2=(D0L+DMLIT*(UL1-HFGA)-DMLG*<HLA-HFGA) )/4ULIT-HFGA) 
IF(0ML2)61»61»23 
61 WRITE (NT APE* 100 ) 

100 FORMAT ( 1H1 »/// * 5lH PROBLEM IS TERMINATED* ALL LIQUID HAS BEEN CONSU 
XMEO) 

CALL EXIT 

23 DMFG=DMLIT-DML2-TML0-DMLG 
TBULKL=TSATL2 
DML1=DML2 

17 CONTINUE 

IF ( NB ) 24 *24* 25 
25 TOTSURBsO. 

DXB=XRADT(ZSURF)-XRADT(0. ) 

DY8=ZSURF 
SURFAsABS ( SURFAN) 

THETBrAT AN ( DXB/DYB ) 

AC0=SIN( 1 . 5707963-THETB ) /SIN ( 1 . 57079634THETB-SURFA ) 

BC0=SIN( 1 . 5707963+THETB ) /SIN ( 1 . 5707963-THETB-SURFA ) 

RMA JR=XRADT ( ZSURF ) * ( ACO+BCO ) /2 . 

DR=RMAJR-ACO*XRADT(ZSURF) 

ZUPR=ZSURF+DR*SIN ( SURFA ) 

RUPR-XRADT (ZUPR ) 

DXB=DR*COS(SURFA) 

ANGLErACOS ( OXB/RUPR > 

RMINR=RUPR*S IN (ANGLE) 

ARLUS3,1416*RMINR*RMAJR 
DO 26 Irl,NB 
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IF(I0(I) >27,27,26 
27 DMB ( I ) =4 • *3 • 1416*RB ( I ) **2 
TOTSURBzTOTSURB*OMB ( I ) 

BO TO 26 

26 DXBzXRADTlXB(2,I)*RBCI) ) -XRAUTTXB (2 , 1 ) ) 

QYB=RB(I) 

THETBzATANCOXB/DYB) 

DXBzXRADT ( XB ( 2 , I ) ) 

ALPHA=AS I N ( OXB/RB ( I ) ) 

THETXSALPHA+THETB 

THET2SALPHA-THETB 

OMB a ) =6 . 2«32*RB < I ) **2* (2 ,-COSTTHETl ) -COS< THET2 ) > 
TOTSURB=TOTSURB*DMB ( X ) 

26 CONTINUE 

DMBD AzQMFG/ ( ARBDEN*DEGF AC *TOTSURB+ARLU ) 

00 29 1=1 »NB 
OMBGF ( I ) SO • 

29 OMB ( I ) :DMB ( I ) *DMBD A* ARBDEN 

24 RETURN 
ENO 

SUBROUTINE LOVE 

C0MM0N/PR0PRT/PP2 < 30 ) , JPZi 30 ) , SPZ ( 30 1 , VPZ4 30 ) * RPLK30 ) , UPLZ < 30 ) * 

X RP6Z ( 30 ) , UPGZf 30 ) 

COMMON/D YNAM/T IMPROP ( 30 ) , PTXMfSO) , «LT I 30 ) , WMLOT I Mf 30 ) » SANT IM ( 30 > 
X »GANTIM(30) »GRATIMT30) 

C0MM0N/TLI0X/TLTIMXU5* 15*15) rTLTIMEf 15) »RZTL(15) ,ZZTL115) 
COMMON/SITEX/RBSITXdOO, 10) ,FREOX ( 100, 10) *XSITEC3* 100) , TSITE ( 1Q0) * 
X TRFTIMUO) 

COMMON/T ANKX/RADTXI10 ) * ZRAOTX 410 ) 

COMMON/BUBBLE/WAKVd, 1000> »VB<3, 1000), XB<3, 1000), RBtlOOO) , 

X RBAt 1000) , XB(IOOO) fOMBOF^f 1000) , DMBClOflO ) , CDRAG ( lOOO ) 

COMMON/CONVERG/DBUBCO * OLIQCO * DLEVCO , DCONCO , OENRCO , DFORCO 

common/surfas/zsurf,surfan,islip 

C0MM0N/LXCUID/MML0,0ML1 , DMLBF,TSUPRL,QL,REYN12,REYN23, AC0F( 3) , 

X EXPN(3)rTBULKL 

COMMON/GASPRO/HG , RBM I N , NB 

COMMON/GNRL/DTIME,DTXMEX,TIMENO,TIMPRNTHOOO) ,IPRINTL,IPRINTU, 

X ntape,irestrt,time,pimps*parimp 

COMMON/VOIO/VOFRAC , DMBTOT 

COMMON/ 1 NTEGR/NTL * NTLR , NTLZ , NRpT , NS I TE , NRZ , NPT I M , NPROP , I WAKE 
COMMON/ ADCONST/C WAKE , BWAKE » SCRAO , ARBDEN ,DEGF AC , ICRDC 3 ) 

DIMENSION I NEW (1000), IGL (1000) , JGL (1000 ) 

IFIRSTz-1 

25 IFIRST=IFIRSTtl 
ICOLSPsO 

DO 5 1=1, NB 

5 INEW (I )=Q 
IGLORzO 

00 1 1=1, NB 
IF(RB(I)-RBMIN)6,6,7 

6 RB ( I ) =0 • 

RBA(I)=0. 

ICOLSPzICOLSP-H 
GO TO 1 
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7 11=1 1 

IF ( 1 1-NB ) 4 r 4 » 1 
4 DO 41 J=I1>NB 

XIJ=XB(1»I)-XB(1»J) 

YIJ=XB<2f I)-Xe(2»J) 

ZIJ=XB(3»I)-XB(3rJ) 

RIJ=SQRT(XIJ*XIJ>+YIJ*YIJ*ZIJ*ZIJ) 

DR=RIJ-(RB(I)+RB(J)+PARIMP) 

IF(DR)2»2»41 
2 IGLOMrIGLOM+i 
IGL ( IGLOM ) =1 
JGL (IGLOM )=J 
41 CONTINUE 
1 CONTINUE 

IF ( IGLOM ) 24 »24t 26 
26 P=PZ ( TIME ) 

DO 3 IGrlr IGLOM 
II=IGL(IG) 

JJ=JGL(IG) 

IF ( I NEW (II) )8»8'9 
6 IJ=II 
GO TO 10 
9 IJ=INEW(II) 

10 XBI1=XB(1. Ij) 

XBI2=XB(2» IJ) 

XBI 3=XB ( 3» IJ) 

XB J1 = XB ( 1 » Jj ) 

XB J2=XB ( 2 r JJ ) 

XBJ3=XB(3» JJ) 

TLI=TZ ( Xt3U»XBl2» XBI 3» TIME) 
TLJ=TZ(XBJl»XBJ2fXbJ3»TIME) 

IF(Rb(IJ) )3,3f 11 

11 IF l Rd ( JJ ) ) 3 » 3 » 12 

12 PI=P 2.*SIGZ(TLI)/(144.*RBA<IJ)) 

PJ=P 2.*SIGZ(TLJ)/(144.*RBA(JJ)) 
INEw(JJ)=IJ 

DMI=4.*3.1416*RHGZ(Pl)*RBA(IJ)**3/3. 

DMJ=4.*3.1416*RHGZ(PJ)*RBA(JJ)**3/3. 

RB(JJ)=0. 

KBA( JJ)=0. 

TMlJ=DMIrCMj 

XBAV1=XBI1+DMJ*(XBJ1-Xdll)/TMIJ 
XBAV2=XBI2+DMJ*(XBJ2-XBI2)/TMIJ 
XBAV3=XBI3+DMJ*(XBJ3-XBI3)/TMIJ 
T LAV =TZ<X8A\/1»XBAV2» TIME) 

XB(1»IJ)=XBAV1 
XB(2» IJ)=XbAV2 
XB(3» IJ)=XBAV3 
IT=0 

KHGAV=AMIN1(RH3Z(PI ) »RHGZ(PJ) ) 

13 RBAV=(3.*TMIJ/(4.*3.1416*RHGAV))**0.3333 
IT=IT+ 1 

PBAV=P+2.*SIGZ(TLAV)/(144.*RbAV) 

RHGAV=RHGZ(PBAV) 
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IF ( IT-5) 13* 14 

14 RBA(IJ)*RBAV 
IFlI#<IJ>flB(JJ))3*J*l41 

141 CALL C0NF’I§R(XB(1» I J) »XB|2* I J) »XB(3* IJ) »XM1> IJ) »XB82» I J) * XB ( 3* I J) 
X #RB< IJ) * IB< I J) * 0*RBA( I J) ) 

3 CONTINUE 
90 TO 27 

24 IF(lFlRST>23»28»23 
28 IFIRSTs-1 
27 DO 15 I:l*NB 

XSURRsXB 1 2 * I ) *TAN ( SURF AN ) *,ZSURF 
DXS*(XSUftR-XB(3*I> )*COSlSURFAN) 

IF (DXS-RB( I ) -PIMPS) 16*16*15 

16 IGLOMsIGLOM+l 
RB(I)=0, 

15 CONTINUE 
ICHANG=IGL0R4IC0LSP 
NBlsNB-1 

ICHASO 

DO 17 I=1»NB 

20 IFIRB(I) )18»18»17 

18 DO 19 JsI'NBl 
XB<1»J)SXB<1» J*l) 

XBl2»J)rXB(2# J4l) 

XB(3'J)=XB(3»J+1) 

RB< J)aRB| J+l) 

RBA(J)3R8a<J*1) 

19 IB<J)=IB^J*1> 

ICHASlCHAf-l 

IF(ICHA-ICHANG)2Q*21*21 

17 CONTINUE 

21 NB=NB-ICHANQ 

IF (NB) 23*23 » 221 
221 DO 22 I=1*NB 

22 CALL C0NFI6R(XB(1*I) »X8(2»I) *X0I3,I) ,XBU»I> »XBf2,I) »XB(3*I) * 

X RB(l),XB(I)*0»RBA(in 

IF(IFIRST)23*25*25 

23 RETURN 
END 

SUBROUTINE BUBKIN 

COMMON/PROPRT/PPZOO) »TPZ(3Q) *SPZ(30) *VPZY30> *RPLZ%30) *UPLZC30) * 

X RPGZ(30) #UPGZ(30> 

COMMON/DYNAR/TIMPROP(30) »PTIMt30) #QLTII4<30) »XMLOTIM(30) *SANTIMt30) 
X »GANTIM(30) *«RATIMf30) 

C0MM0N/TLI0X/TLTIMXC15* 15*15) »TLTIME( 15) »RZTL(15) * ZZTH15) 

COMMON/S I TEX/RBS I TX (100*10) *FREQX (100*10)* XSITE (3*100)* TSITE (100)* 
X TRFTIM(IO) 

COMMON/TANKX/RADTX(10) »ZRADTX(10) 

COMMON/BUBBLE /WAKV (3*1000) »VB (3*1000) *XBf 3*1000) *RB(1000) * 

X RBA(IOOO) » IB t 1000) » DMBGFT 1000 ) *DMB11000 ) ,CDRA© ( 1000 ) 

COMMON/CONVERG/DBUBCO*DLIGCO»DLEVCO»DCONCO*DENRCO,DFORCO 
COMMON/SUPFAS/ZSURF»SURFAN,ISLIP 

C0MM0N/LICUID/K*ML0,DML1»DNLBF*TSUPRL»QL*REYN12*REYN23,AC0F(3)* 

X EXPN(3)»TBULKL 
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C0MM0N/GASPR0/HG»RBMIN»NB 

COMWON/GNRL/DTIME»DTIMEXrTIMtND»TIMPRNT<1000) »IPRINTL#IPRINTU» 

X NTAPE, IRESTRT»TIME»PIMPS»PARIMP 

COMMON/VOID/VOFRAC , DMBTOT 

COMMON/INTEGR/NTL»NTLR,NTLZ,NRFT»NSITE,NRZ,NPTIM,NPROP,IWAKE 
COMMON/ADCONST/C WAKE , BW AKE , SCRAD , ARBDEN ,DEGFAC , ICRDI 3 ) 

DIMENSION REGCO(IOOO) 

DCON=1.0 
DO 82 I=1»NB 
SUM=0. 

REGCO(I)=1.0 
TANKR=XRADT(XB(3» I ) ) 

TANKA=3. 1416*TANKR*TANKR 
ZUPR=XB(3,I)+RB(I) 

ZLWR=XB( 3, I ) -RB ( I ) 

DO 83 Jzl'Ntt 
ZJ=XB(3» J) 

ZJU=J£+R3( J) 

ZJL=ZJ-RB( J) 

IF IZLWR-ZJ) 84,85,66 

85 SUM=SUM+3,1416*RB( J)*RB(J) 

GO TO 83 

84 IF ( ZUPR-ZJ ) 87 , 85, 65 

87 IF ( 2UPR-ZJL ) 83 , 83, 88 

88 RINT=SQPT(RB(J)*RB(J)-(ZJ-ZUPR)*(ZJ-ZUPR) ) 

SUM=SUM+3. l4i6*RINT*RINT 

GO TO 83 

86 IF ( ZLWR-Z JU ) 89 , 83, 83 

89 KINT=SQRT(RB( J)*RB( J)-<ZLWR-ZJ)*<ZLWR-ZJ) ) 

SUM=SUM+3. 1416*RINT*RINT 

83 CONTINUE 

regct=i.-sum*degfac/tanka 

82 REGCO(I)=AMAX1(0.,REGCT) 

30 DO l I=1»NB 

CALL FORCES ( XB ( 1 » I ) » XB ( 2, 1 ) » XB(3, I ) »RB ( I ) , RBA( I ) » IB{ I ) ,FM AG, THETA, 
X PHI, TIME) 

CALL SPEED (XB< 1,1) »XB(2»I) »XB(3, I > »RB( I ) ,RBAU> ,FMAG , VMAG, IB < I ) » 

X TIME, CDRAG ( I ) ) 

VMAG=VMAG*REGCO(I) 

VB(1, I)=VMAG*SIN(THETA)*COS(PHI) 

VB(3»I)=VMAG*COS(THETA) 

1 VB(2, I )=VMAG*SIN( THETA )*SIN(PHI) 

DO 32 1=1, NB 
WAKV(1,I)=U, 

WAKV(3,I)=0. 

32 WAKV(2,I)=0. 

CALL WAKES 
RHOL=RHZL(TBULKL) 

DO 31 1=1, NB 
RT=X«ADT(XB(3,I) ) 

31 WAKV (3, 1 )=-WML0/(RH0l*3.1416*RT*RT)«-WAKV(3,I) 

ITMAX=50 

DO 2 1=1, NB 
P2=PZ (TIME+DTIME) 



PlSPZ(TIME) 

IOBSsXB(I) 

DO 3 J=l»3 
IT=0 

ASSIGN 17 TO IS2 
ASSIGN Id TO IS3 
GO TO (4,5,51), J 

4 VBAVl=VBtl»I) 

VBAV2SO, 

VBAV3=0. 

GO TO 6 

5 VBAV2=VB(2,I) 

GO TO 6 

51 VBAV3=VB(3,I) 

6 XB1T= ( WAKV ( 1 , I )+VBAVl ) *DTIME*XB < 1,1) 

XB2T= ( WAK V (2,1) *VBA V 2 ) *DT I MEtXB ( 2 , I ) 

XB3T= ( WAKV (3,1 )*VBAV3) *DTIME*XB (3,1) 

19 CALL ENERGY (XB(1,I) , XB(2, I ) , XB(3» I ) » XB1T»XB2T , XB3T » RB Ai I ) , DMB ( I ) , 
X DTIME»RBA2»P1» P2 , T I ME , DMBGF f I ) ) 

IF ( IOBS-1 ) 191 , 192» 192 

192 CALL CONFIGR(XB1T,XB2T,XB3T,XB1T,XB2T,XB3T,RB2,IOBS,0,RBA2) 

GO TO 193 

191 RB2=RBA2 

193 CALL F0RCES(XB1T,XB2T,XB3T,RB2,RBA2,I0BS,FMAG, THETA, PHI, TIME4 

X DTIME) 

CALL SPEED(X81T,XB2T,X83T'RB2,RBA2,FMAG,VMAG,TIME*DTIME»OUM) 
VMAG=VMAG*REGCO(I) 

GO TO (7,8,81) , J 

7 VBAVl=(VMAG»SIN(THETA)*COS(PHI) # VBU,I) )/2. 

GO TO 9 

8 VBAV2=<VMAG*SIN(THETA)*SIN(PHI)*VB12»I) )/2. 

GO TO 9 

81 VBAV3=(VMAG*C0S(THETA)+VB<3,I) )/2, 

9 X812=(WAKV (1,1 )#VBAV1 ) *DTIME*XB( 1 , 1 ) 

XB22= ( WAK V ( 2 , 1 )+VBA V2 ) *OT IME*XB (2,1) 

XB32-(WAKV(3, 1 )+VBAV3) *DTIME*XB( 3,1) 

DXB1SXB1T-XB12 

DXB2=XB2T-XB22 
DXB3=XB3T~XB32 
GO TO (10,11,111) ,J 

10 QXB=DXB1 
XBT=XB1T 
GO TO 12 

11 DXB=DXB2 
XBT=XB2T 
GO TO 12 

111 DXB=DXB3 
XBT=XB3T 

12 IF(ABS(DXB)-0.001*OCON*(VMAG+0.001)*DTIME)3,3»14 

14 IF (DXB) 15,3,16 

15 GO TO IS2, (17,23,27,28) 

16 GO TO IS3, (18,23,26,29) 

17 ASSIGN 23 TO IS2 
ASSIGN 26 TO IS3 
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DFIX=DXB 

XFIX=X0T 

XB1T-XB12 

XB2T=XB22 

XB3T=XB32 

GO TO 19 

lb ASSIGN 27 TO IS2 
ASSIGN 23 TO IS3 
DFIXSDXB 
XFIX=XBT 
X61T=XB12 
XB2T=XB22 
XB3T=XB32 
GO TO 19 

23 IT=IT+1 

XBT= ( DXB*XF I X-DF I X*XBT ) / ( OXB-OFIX ) 

GO TO (20»21,211) »J 

20 X81T=XBT 
GO TO 22 

21 XB2TSXBT 
GO TO 22 

211 XB3T=X8T 

22 IF(IT-ITMAX)19,19,3 

26 DSAvErDXB 
XSAVE=XBT 
ASSIGN 23 TO IS3 
ASSIGN 20 TO IS2 
GO TO 23 

27 DSAVErDXB 
XSAVErXBT 
ASSIGN 23 TO IS2 
ASSIGN 29 TO IS3 
GO TO 23 

20 DFlxrOSAVE 
XFIXrxSAVt 
ASSIGN 23 TO IS2 
ASSIGN 2b TO IS3 
GO TO 23 

29 DFlxrOSAVE 
XFlXrXSAVE 
ASSIGN 27 TO IS2 
ASSIGN 23 TO IS3 
GO TO 23 
3 CONTINUE 

CALL CONF I GW ( XB ( 1 » I ) , X3 ( 2 » I ) > XB( 3 » I ) » XBlT t XB2T» X83T »RB2» IOBS r 1 > 
X RBA2) 

IB ( I ) rIOBS 

RB ( I ) rRB2 

RBA( I )=RbA2 

XB ( 1 » I ) rXBlT 

XB ( 2 r I ) rXB2T 

XB ( 3 r I ) =XB3T 

VB(l»I)rVBAVl+WAKV(l»I) 

VB ( 2 r I ) =VBAV2+WAKV (2 » I ) 
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VB < 3 9 1 ) =VBAV3*WAK V ( 3 r I ) 

CALL WALL ( XB1T , XB2T , XB3T , RB2 » VB ( 1 , Z ) > VB4 2 , I ) , VB ( 3 , 1 ) » VC 1 , VC2 , VC3 , 

X ISLIP) 

VB(1, I)=VB(1»I)*VC1 
VB(2»I)=VB(2,I)+VC2 
VB(3,I)=VB(3»I)*VC3 
2 CONTINUE 
RETURN 
ENO 

SUBROUTINE WAKES 

COMMON/PROPRT/PPZ ( 30 ) , TPZ ( 30 ) , SPZ ( 30 ) » VPZ< 30 ) , RPLZ43Q ) , UPLZ ( 30 ) * 

X RPGZ ( 30 ) » UPGZ ( 30 ) 

C0MM0N/DYNAM/TIMPR0P(30) »PTIM(30) »QLTIH<30) #WML0TIM<30) »SANTIM(30) 
X »6ANTIHC30) »GRATIM(30) 

C0MM0N/TLIQX/TLTIMX(15, 15,15), TLTIME(15)»RZTL(15) ,ZZTL<15> 
C0MMON/SITEX/RBSITX(100,10) ,FREQX( 100,10) »XSITE(3, 100), TSITE( 100) , 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX (10), ZRADTX CIO ) 

C0MM0N/BUBULE/WAKV(3, 1000) ,VB(3, 1000) ,XB(3, 1000) ,RBtl000) , 

X RBA ( 1000 ) ,IB( 1000) ,ONBGF( 1000) ,OMB4lOOO) , CORAG (1000) 

COMMON/CONVERG/DBUBCO , DLIGCO , DLEVCO , DCONCO , OENRCO , OFORCO 
COMMON/SURFAS/ZSURF , SURFAN, ISLIP 

C0MM0N/LICUID/WML0,DML1»DMLBF,TSUPRL»QL,REYN12»REYN23,AC0F(3) , 

X E XPN ( 3 ) , TBULKL 

COMMON/GASPRO/HG, RBMIN , NB 

COMyON/GNRL/DTIME,DTlMEX,TIMEND,TIMPRNTUOOO) ,IPRINTL,IPRINTU, 
x ntape»irestrt» TIME, pimps, parimp 

common/void/vofrac,dmbtot 

COMMON/ 1 NTEGR/NTL » NTLR , NTLZ , NRFT , NSITE , NRZ , NPT IM , NPROP , I WAKE 
COMMON/ ADCONST/CWAKE , BWAKE , SCR AD , ARBOEN , DEGFAC , ICROf 3 ) 
YWAKE=CWAKE*BWAKE/3. 

IF ( I WAKE ) 8,8 ,9 
9 00 6 1=1, NB 
DO 7 Jsl ,Nd 

CALL WALL(XB(1,I) ,XB(2,I) ,XBC3, 1 ) ,RBH ) ,VB11,I) ,VB42, 1 ) , VB (3, 1 ) » 

X VC0R1,VC0R2,VC0R3, ISLIP) 

AIJ=0. 

VY1=0 « 

VY2=0. 

VY3=0. 

RI=RB(I) 

RJ=RB(J) 

XI1=XB( 1 , I ) 

XI2=XB(2, I) 

XI3=XB(3, I ) 

Xdl=XB(l, J) 

XJ2=XB(2»J> 

XJ3=XB(3,J) 

RJI1=XI1-XJ1 

RJI2=XI2-XJ2 

RJI3=XI3-XJ3 

RMAG=SQRT(RJI1*RJI1+RJI2*RJI2+RJI3*RJI3) 

V1 = VB (1,1 J+VCORl 
V2=VB (2,1 )+VC0R2 
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v3=V6(3»I)*VC0R3 

VMAG=SGRT ( V1*V1*V2*V2*V3*V3) 

RV=RMAG*VMAG 
IF ( RV ) 1 » 1 r 3 

1 t%AKV(lr J)=WAKV(1»J)-WAIJ*V1^VY1 
WAKV(2 f J)=WAKV(2» J)+AI J*V2*VY2 
*AKV<3» J)=WAKV(3»J)*AIJ*V3*VY3 
GO TO 2 

3 C0SA=(RJI1*V1+RJI2*V2*RJI3*V3)/{RV> 

IF ( COSA ) 1 ► 1 f 4 

4 XR=RMAG*COSA 
COSA=AMINltCOSA,l. ) 

IF ( XR-RI >1*5*5 

5 ALPHA=ACOS(COSA) 

YR=RMAG*SIN(ALPHA) 

YR=A8S(YR) 

BsBwAKE* (CDRAGt I ) *3. 1416*RI*RI*XR >**0.333333 

A I J=C WAKE* (CORAG ( I ) *3. 1416*R I *RI/ <XR*XR > >**0.333333 

AlJ=AMINl(AlJ,i.o> 

YIJ=YWAKt*(AlJ/C*AKE)**2. 

AIJ=AIJ*AVWAK(RJ,YR»B*1) 

YIJ=YIJ*AVWAK(RJ,YR»B»2) 
VY1=YIJ*VMAG*(RJI1-VI*XR/VMAG)/RMAG 
VY2=YIJ*VMAG*(RJI2-V2*XR/VMAG)/RMAG 
VY3=YIJ*Vf , AG*(RJI3-V3*XR/VMAS)/RMAG 
GO TO 1 

2 CONTINUE 
7 CONTINUE 

6 CONTINUE 

0 RETURN 
END 

FUNCTION AVWAK(R,Y»Bt IC> 

A(Xl.X2)=Xl-0.d*Xl*X2**1.5«*-0.25*Xl*X2**3 

0 ( X3 , X4 ) =0 . 5*X3*X4-0 . 571*X3*X4**2.5*0. 2*X3*X4**4. 

IF (B-(Y+R> >1*1.2 

1 YU=B 

GO TO 3 

2 YU=Y R 
YL= Y-R 

3 IF(B-(Y-R) >4*4.5 

4 AVWAK=0. 

GO TO b 

5 IF{b (Y-R ) ) 7 . 7 . 8 

7 YL=-B 
GO TO 9 

d YL=Y-R 
9 RATU=ABS(YU/B) 

RATL=ABS(YL/B) 

IF ( IC— 1 ) 12 .12.11 

11 AVWAK=D(YUfRATU)-D(YLfRATU 
GO TO 13 

12 AV*/AK=A< YU»RATU)-A( YL.RATL) 

13 IF(ft)4»4.1U 

10 AVWAK=AVXAK/(2.*R) 
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6 RETURN 
END 

SUBROUTINE #ALL(X1*X2»X3»R*V1*V2#V3»VC1»VC2,VC3,IS) 

VC1=0. 

VC2=0. 

VC3S0. 

D=1.00001*R 

IF(R)1,1»2 

2 0XBsXRADT(X3*R)-XRADT(X3> 

THETBsAT AN (DXB/R ) 

PHlsATIN(X2»Xl) 

XR=SQRT(X1*X1*X2*X2+X3*X3) 

THETAsAC0S(X3/XR) 

IF(X3-R)3*3»4 

3 IF(V3)31*1»1 
31 VC1=0. 

VC2=0, 

VC3=-V3 
60 TO 5 
1 VC1=Q, 

VC2=Q. 

VC3S0. 

GO TO 5 

4 IF ( XRADT <X3)-D/C0S(THETB )) 10*6*6 

b DXB=(XRADT(X3)-XR*SlN(THETA) )*COS(THETB) 

IF (DXB-D) 7*7*1 

7 IF ( IS ) 8*8 * 9 

8 VC1=-V1 
VC2=-V2 
VC3=-V3 
60 TO 5 

9 DN1=C0S(PHI)*C0S(THETB) 

DN2=SIN(PHI)*C0S(THETB) 

DN3=-SIN(THETB) 

VD0TN=-CV1*DN1+V2*0N2*V3*DN3) 

vci=vdotn*dni 

VC2=VD0TN*DN2 

VC3=VD0TN*0N3 

60 TO 5 
10 VC1=-V1 
VC2=-V2 
VC3=0. 

5 CONTINUE 
RETURN 
END 

SUBROUTINE FORCES (XI , X2»X3»R»RA» IOBS»FMAG, THETA, PHI »TIM) 
COMMON/PROPRT/PPZ ( 30 ) »TPZ( 30 )*SPZ(30)* VPZ ( 30 ) *RPLZT30 > ,UPLZ ( 30 ) * 

X RP6Z ( 30 ) * UPGZ ( 30 ) 

COMMON/DYNAM/TIMPROP(30) »PTIM(30) *QLTIM«30) »WMLOTIMI30) »SANTIM(30) 
X »GANTIM(30) »6RATlMf30) 

C0MM0N/TLIQX/TLTIMX(15»15»15) »TLTIM£(15) »RZTL(15) »ZZTL(15) 
COMrtON/SITEX/RBSITX(100» 10) »FREQX(100*10> » XSITE<3» 100 } »TSITE ( luO ) » 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX (10)* ZRADTX (10) 
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tr iv 


COMMON/BU8BLE/wAKV(3»lUOO) »VB(3» 1000) »XB(3» 1000) »RB< 1000 ) # 
x RBAllOOO) »IB(1U00) iDMBGF t 1000 ) *DMB tlOOO ) ,CDRAG ( luOO ) 

COMMON/CONVERG/OBUBCO , DLIQCO »DLEVCO , DCONCO , DENRCO , OFORCO 
COMMON/SURF AS/ZSURF » SURFAN, ISLIP 

COMMON/LICUIO/wMLO,DMLl,DN'LBF,TSUPRLrQL,REYN12,REYN23,ACOF(3) » 

X EXPN ( 3 ) r TBULKL 

C0MW0N/6ASPR0/HG>RBMIN»NB 

COMMON/GNRL/DTIi w Ef DTIN ; EX»TIMtND»TIMPRNT(1000 ) * IPRINTL* iPRINTUr 
X NTAPEt IRESTRTtTIMEtPlPPSfPARlWP 

COHMON/VOIO/VOFRAC t DMBTOT 

common/ I ntegr/ntl»ntlr»ntlz»hrft*nsite»nrz»nptim»nprop, I wake 
COMMON/ADCONST/CWAKE rBi)KAKE»SCRAD» ARBDEN»DEGFAC» ICRDt3) 

IF(KA)3.3»4 
5 FMAG=0, 

THETA=0. 

PHI=0. 

RETURN 

4 IF ( IOBS) 1 » 1 » 2 
1 G=GRAVITY(TIM) 

XU=X1-RA 

XL=X1-RA 

YU = X2»RA 

YL=X2-RA 

ZU=X3*RA 

ZL=X3-RA 

GRADTX=(TZ(XU»X2»X3#TIM)-TZ(XL,X2,X3,TIM))/(XU-XL) 
GRADTY=(TZtXl,YU»X3»TIM)-TZ(Xl,YL,X3»TIM))/(YU-YL) 
GRADTZ=<TZtXl»X2>ZU#TlM>-TZ<Xl»X2»ZL»TIM) )/<ZU-ZL) 
ANGLE=GPANGL(TIM) 

PrPZITIM) 

TL=TZ(X1»X2»X3#TIM) 

PT0T=P+2.*SIGZ<TU/(144.*KA) 

OELRO=RHZL ( TL ) -RH6Z ( PTOT ) 

SIGPRMs ( SIGZ (TL*1 • ) -SIGZ (TL-1 • ) ) /2 • 

FB0Y=4. +3. 1416*32. 17*G*DELR0*RA**3/3. 

FST=-8.*3.1416*SIGPRM*RA*RA*32.17 

FX1=FST*GRAUTX 

FX2=FST*GRADTY— F80Y ♦SIN ( ANGLE) 

FX3=FST*GRADTZ-*-FBOY*COS( ANGLE) 

60 TO 5 
60 TO 3 

FMAG=SQPT(FXl*FXl+FXi!*FX2*-FX3*FX3) 

THETA=AC1S(FX3»FMAG) 

PH1=ATIN(FX2#FX1) 

RETURN 
ENU 

FUNCTION ACIS(X»R) 

IF(n)l,2»3 

2 ACIS=0. 

RETURN 

1 Xl=-X 

Rl=-K 

60 TO 4 

3 X1 = X 
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4 IF (Xl)5»6»6 

5 THtTA=ACOS(Xl/Rl) 

ACISS3. 1415927-THETA 
RETURN 

6 ACIS=AC0S(X1/R1) 

RETURN 

END 

FUNCTION ATIN(YtX) 

IF(X)1#2»3 

2 IF ( Y ) 4»5»6 

4 ATINS4. 712389 
RETURN 
& ATIN=0. 

RETURN 

6 ATIN=1. 5707963 
RETURN 

3 IF ( Y ) 7# 8 »8 

7 THETA=ATAN(Y/X) 

ATIN=6.2831853«-THETA 

RETURN 

8 ATINsATANt Y/X) 

RETURN 

1 ATIN=3.1415927+ATAN(Y/X) 

RETURN 

END 

SUBROUTINE SPE£D(X» YrZ»RBUB,RBUBA,FMAG»VMAG, I0BS»TIM»CDR) 
COMMON/PROPRT/PPZ( 30 ) t TPZ (30 ) rSPZ (30) t VPZ ( 30 ) »RPL2 130) »UPLZ ( 30 ) t 
X RPGZ ( 30 ) » UPGZ ( 30 ) 

COMMON/DYNAM/TIMPROP(30) »PTIM(30) »QLTIM(30> ,WMLOTIM(30) »SANJIM(30) 
X »GANTIM(30) »GRATIMf30) 

COMMGN/TLIQX/TLTIMX ( 15 » 15 > 15 ) »TLTIME( 15 ) »RZTL ( 15) »ZZTL(15) 
COMMON/SITEX/RbSITX (lOOrlO) »FREQX ( 100 » 10) »XSITE<3» 100 ) »TSITE ( 100 ) » 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX ( 1 0 ) » ZRADTX ( 10 ) 

COMMON/BUBBLE/WAKV( 3» 1000 ) rVBf3» 1000) rXB<3» 1000) »RB< 1000) , 

X RBA( 1000) » IB(IUOO) »DMBGF( 1000) *DMB( 1000) ,CDRAG( 1000) 

COMMON/CONVERG/DBUBCO»DLIQCO»DLEVCO,DCONCO»DENRCO,DFORCO 
COMMON/SURFAS/ZSURF » SURFAN » ISLIP 

COMMON/L I CUID/WMLO » DML 1 » DMLBF $ TSUPRL » OL »REYN12 » REYN23 » ACOF ( 3 ) > 

X EXPN(3) »TBULKL 

COMMON/G ASPRO/HG t R6M IN t NB 

COMMON/GNRL/DTIME»DTIMEX,TIMEND»TIMPRNT?aOOO) #IPRINTL,IPRINTU» 

X NTAPE» IRESTRT»TIME*PIMPSrPARIMP 

COMNON/VOIO/VOFRAC,DMBTOT 

COMMON/ 1 NTEGR/NTL » NTLR » NTLZ # NRFT » NSl TE t NR Z t NPT IM t NPROp » I WAKE 
COMMON/ADCONST/CWAKE , BMAKE r SCRAD t ARBDEN » DEGF AC t ICRD ( 3 ) 

CDRsl.O 
IF(FMAG) 1* 1»2 

1 VMAG=0 
RETURN 

2 TL=TZ(X»Y»Z»TIM) 

RHL=RHZL(TL) 

SIGL=SIGZ(TL)*32.17 
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DMUU=VISC21TL) 

PI=3. 1415927 

RE1=2.*RBUBA*RHL*( (DMUL/(2.*RBuBA*RHL) )**EXPN(1 )*<2.*FMAG/ 

X (AC0F(1)*PI*RHL*RBUBA*R8UBA) ) )**tl./(2.*EXPN(l) ) ) 

X /DMuL 

RE2=2.*RBUBA*RHL*( (DMUL/(2.*KBuBA*RHL) ) **EXPN(2) *( 2 ,*FMAG/ 

X (AC0F(2)*PI*RHL*RBUBA*RBUBA) ) )**(l./(2.*EXPN( < i) ) ) 

X /UMuL 

IF(REl-PtYNl2)3»3»4 
J VMAG=RE1*CMUL/(2.*RBUBA*RHL) 

GO TO 7 

) DNETV0S=3.*FMAG/(PI*RBUBA*SIBL) 
DCDR=AC0F(3)*(i,-EXP(-EXPN<3)*DNETV0S) )-AC0F(2)*RE2**EXPN(2) 

IF ( DCDR ) 5f 5 , 6 

, VMAG=RE2*DMUL/(2.*RBUBA*RHL) 

TO 7 

j CDH-ACOF ( 3 ) * ( 1 ,-EXP (-EXPN( 3) *DNETVOS) ) 

VMAG=(8.*FMAG*RHL/(PI*CDP ) )**U,5/(2.*RBUBA*RHL) 

RETURN 

r CDR=2.*FMAG/(PI*RHL*RBUBA*RBUBA*VMAG*VMAG) 

RETURN 

END 

SUBROUTINE ENERGY (X11fX12fX13,x21 f X22f X23fR1 fDMGfDT fR2fP1 fP2fTIMEf 
X DMGAP) 

COMMON/PROPRT/PPZ ( 30 ) fTPZ<30) fSPZ(30) fVPZ<30) fRPLZ<30 ) ,UPI_Z< 30) » 

X RPGZ ( 30 ) f UPGZ ( 30 ) 

COMMON/DYNAV/TIMPROP{30) rPTIM(30 ) fQLTIM< 30 ) , WMLOTlM(30 ) fSANTIM< 30 ) 
X »GANTIM(30) »GRATIM(30) 

C0MM0N/TLI«X/TLTIMX(15»15»15) #TLTIMEC15) »RZTLC15) fZZTL(15) 
COMMON/SITEX/RBSITXUOOfIO) fFREQX< 100 f 10) fXSITE { 3,100 ),TSITE(lQ0 ) f 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX ( lU ) f ZRAOTX ( 10 ) 

COMMON/BUBBLE/WAKV (3f 1000 ) fVB(3f 1000) fXB(3f 1000) ,RB( 1000) f 
X RBA(IOOO) fIB(IUOO) f DMBGF ( 1000 ) fDMB< 1000 ) ,CDRAG ( 1000 > 

COMMON/CONVERG/DBUBCOfDLIUCOfDLEVCO,DCONCO,OENRCO,DFORCO 
COMMON/SURFAS/ZSURF f surfan, islip 

COMMON/LICUID/WMLO f DmLI fDMLBF fTSUPRL f QL fREYN12 fREyN23, ACOF ( 3 ) , 

X EXPN(3) fTBULKL 

COMWON/GASPRO/HGfRBMINfNB 

COMMON/GURL/DTIMEfOTIMEX,TIMENDfTIMPRNT(1000) f IPRINTL, IPRINTUf 
X NTAPEf IRESTRTfTIMEfPIKPSfPARIMP 

COMMON/VO IO/VOFRACfDmBTOT 

COMMON/ INTEGR/NTLfNTLRfNTLZfNRfTfNSITEfNRZfNPTIMfNPROP,IwaKE 

COMMON/ ADCONST/CwAKEfBWAKEfSCRADf ARBDEN,DEGFACfICRD( 3) 

ECON=l. 

IT=U 

DMGAPrO. 

TL1=TZ(X11fX12fX13fTIME) 

ITMAX=50 

TL2=TZ(X21fX22fX23fTIM£+DT) 

PG1=P1+2.*SIGZ(TL1)/(144.*K1 ) 

RHG1=RHGZ(PG1) 

UG1=UGSZ(PU1) 

TS1=TSZT(P1) 
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TG1=TS2T(PG1) 

TS2sTS2T(P2) 

ULlsULSZtTLl ) 

UL2=ULSZ (TL2) 

HGlsUGl*PGl/RHGl*0.l851 
HL1SUL1*P1/RM2L (TLi ) *0 . 1851 
HL2=UL2*P2/RHZL (TL2 ) *0 . 1851 
HGFA={HLl!fHL2)/2. 

R2SR1 

IF(DMG)5f6r6 

5 CDHG=1. 

GO TO 7 

6 CDMG=0. 

7 DMl=4.*3.1416*RHGl*Rl**3/3. 

ASSIGN 15 TO XS2 

ASSIGN 16 TO 1S3 

1 IF (R2 ) 32 > 32r 33 

32 RIS-R2 
SIGNs-1, 

PG2=P2*2 . *SIGZ ( TL2 ) / ( 144 . *R8MIN> 

GO TO 34 

33 RI=R2 
SIGN=1. 

PG2=P2+2 . *SIGZ ( TL2 ) / <144 . *R2 ) 

34 TG2=TSZT(PG2) 

0Q=6 .2832*HG* (R1*R1* (TS1-TL1 )*R2*R2* (TS2-TL2 ) *SIGN ) *DT 
RHG2=RHGZ(PG2) 

UG2=UGSZ (PG2 ) 

HG2=UG2*PG2/RHG2*0. 1851 

RHGI=SIGN*RHG2 

HFGA=CHGl+HG2)/2. 

HGFXSHFGA-HGFA 

OMUGF=DO/HGFX 

DM2=4.#3.1416*RHGI*RI**3/3. 
PV»ys0Ml*PGl*0.1851/RHGl-DM2*PG2*0,185l/RHG2 
IF(DMQGF) 2»3# 3 

2 CQ=0. 

GO TO 4 

3 CQ=1. 

4 0MGAP=4.*3.1416*<RHG1*R1**3-KHGI*RI**3)/3.*DMG-DMQGF 
IF (OMGAP ) 8>9 » 9 

8 CP=0 . 

GO TO 10 

9 CP=1 . 

10 DENERGS4 . *3. 1416*<RHGI*UG2*RI**3-RHG1*UG1*R1**3) /3.*DMGAP* ( ( 1 ,-CP) 

X *HFGA+CP*HGFX ) +OMQGF* C f 1 . -CQ ) *HF GA*CO*HGFX ) -OWG* ( ( 1 . -CDMG ) * 

X HFGA+CDMG*HGFX)-PVW 

IF ( A8S( DENERG )-ECON*0 . 001*DM1*UG1 ) 12 r 12 , 11 

11 IF ( DENERG ) 13 r 12 * 14 

13 GO TO IS2»(15»23#27»28) 

14 GO TO IS3» (16»23»26»29) 

15 R2=(3.*tDMl+DMG)/<4.*3.1416*RHGl) )**0.3333 
ASSIGN 23 TO IS2 

ASSIGN 26 TO IS3 
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0FIX=DENERG 
RFIX=R1 
GO TO 17 

16 K2=(3,*(DNl+DMG)/(4.*3.1416*KHGl) ) **0.3333 
ASSIGN 27 TO IS2 

ASSIGN 23 TO IS3 
DFIXsDENERG 
RF I X— Rl 

17 IF ( A6S( (Rl-K2)/RD-0. 0001)16.1.1 

18 R2=R1*1.U5 
GO TO 1 

23 IT=IT+1 

R2=(DENERG*RFIX-DFIX*R2)/(DENERG-CFIX) 

IF(IT-ITMAX)1.1,12 

26 OSAyE=QENERG 
KSAVE=R2 

ASSIGN 23 TO IS3 
ASSIGN 28 TO IS2 
GO TO 23 

27 DSAVE=DENERG 
KSAVE=R2 

ASSIGN 23 TO IS2 
ASSIGN 29 TO IS3 
GO TO 23 

28 DFIX=DSAVE 
RFIX=RSAVE 
ASSIGN 23 TO IS2 
ASSIGN 26 TO IS3 
GO TO 23 

29 DFIX=DSAVE 
RFIX=PSAVE 
ASSIGN 27 TO IS2 
ASSIGN 23 TO IS3 
GO TO 23 

12 IF ( R2-RBMIN) 30.31.31 

30 R2=R6MIN 

31 RETURN 
END 

SUBROUTINE C0NFIGR(X11»X12.X13.X21»X22.X23.R2.I0BS.IREDC.P1) 
COMMON/PROPRT /PPZ ( 30 ) . TPZ ( 30 ) »SPZ (30 )» VPZ ( 30 ) .RPLZ ( 30 ) »UPLZ ( 30 ) » 

X RPG2 l 30 ) » UPG2 (30) 

C0M^0N/DYNAM/TIMPR0P(30) » PTIM (30 ) »QLTIM<30) »WMLOTIM(30) .SANTIM(30) 
X »GANTIM(30) »GRATIM(30) 

COMf'ON/TLIQX/TLTIMX(15»15»15>) .TLTIMEQ5) . R2TL (15) . 22TL( 15 ) 

COMMON/S ITtX/RBSITX< 100. 10) .FR£QX( 100 .10) »XSITE(3» 100) >TS1TE(100) . 
X TRFTIM(IO) 

COM^ON/TANKX/RADTX (10) .ZRADTX(lO) 

COMMON/BuBBLE/WAK V (3.1000) . VB (3. 1000 ) . XB( 3. 1000 ) .Rti< 1000 ) . 

X RBA(IOOO) .18(1000) r DMBGF ( 1000 ) . DNB( 1000 ) .CDRAG ( 1000 ) 

COMKON/CONVERG/OBUBCO . DLIQCO .DLEVCO , DCONCO . DENRCO , DFORCO 
COMNON/SURFAS/2SURF»SURFAN,ISLIP 

COMMON/LICUIO/wMLO f DMLl.DMLBF,TSUPRL»GL.REYN12»REYN23»ACOF(3) , 

X EXPN(3) .TBULKL 

common/gaspro/hg.rbmin.nb 
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COMMON/GNRL/DTIME»OTlMEX,TIMEND*TIMPRNmOOO)»IPRINTL,IPRINTU* 
X NTAPE. IRESTRT»TIME,PIPPS»PARIMP 

COMMON/VOID/VOFRAC f dmbtot 

COMMON/ INTEGR/NTL#NTLR*NTLZ*NRFT»NSlTE»NRZ»NPTIM*NPROP,IWAKE 

COMMON/ADCONST/CwAKE * BWAKE # SCRAD » ARBDEN » DEGFAC t ICRDt 3 ) 

DCONsi, 

IF ( XRADT (X13)-R1)501»501»502 

501 IF(ISLIP)503»503»502 
503 XZ2SX13 

GO TO 50 

502 XZ2=X23 

50 IF ( XZ2-R 1 ) 1 »2 » 2 

1 XZ2=R1 
IBOT=l 
GO TO 3 

2 IBOT=0 

3 XZl=AMAXl(X13fRl) 

XR1=SGRT ( Xll*XU*X12*X12<fXZl*XZl ) 
XR2=SQRT(X21*X21+X22*X22^XZ2*XZ2) 

IOBS-O • 

TH1=AC0S<XZ1/XR1) 

TH2=ACOS(XZ2/XR2) 

DXB=XRADT ( XZ2*R1 ) -XRADT ( XZ2 ) 

THETB=ATAN(DXB/R1) 

IREDC1=IRE0C 

PHI1=ATIN(X12»X11) 

PHI2=ATIN(X22»X21> 

RT=R1/C0S (THETB) 

19 DXB=(XRADT(XZ2)-XR2*SIN(TH2) )»COS(THETB) 

IF(DXB-R1)5,5,4 

4 X23=XZ2 
R2=R1 
RETURN 

5 IF ( XRADT ( XZ2) -RT ) 9# 51 » 51 
9 X21=0. 

X22-0 « 

IOBS— 1 

RI=R1 

ITMAX=25 

V0LB=4.*3.l4l6*RI*»3/3. 

IT-0 

ASSIGN 37 TO IS2 
ASSIGN 38 TO IS3 
X23-XZ2 

36 XZ2=AMAX1(X23»RI) 

DXBrXRADT ( X22 ) *COS ( THETB ) 

ALPHArASIN (DXB/RI ) 

THET1=ALPHA+ABS(THETB) 

THET2=ALPHA-ABS ( THETB ) 

VOLC 1=3 . 14 16*R I **3* ( 2 . *COS ( THET 1 ) ) * ( 1 . -COS ( THET1 ) ) ♦♦2/3 . 
V0LC2=3* 1416^RI^+3* <2«*C0S(THET2) )*(l a -COS4THET2) )**2/3. 
V0C0N=3.1416*RI#^3^(C0S(THET1)*C0S(THET2) > * <SIN(THET1 ) ♦♦2* 

X SI N( THET 1 ) *SIN ( THET2 )*S INI THET2 ) **2 ) /3 . 

VT0T=V0C0N*V0LC1+V0LC2 
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DV=VOLB-VTOT 

IF ( ABS (DV ) "0 » 001*DCON*VOLB) 39 » 39 » 40 

40 IF(DV>41»39»42 

41 GO TO IS2» <37»43»47»48) 

42 GO TO IS3» (38»43»46»49) 

37 ASSIGN 43 TO IS2 
ASSIGN 46 TO IS3 
DVFIXzDV 
RFIX=R1 

GO TO 44 

38 ASSIGN 47 TO IS2 
ASSIGN 43 TO IS3 
DVFIXzDV 
RFXXzRl 

44 RI=H1*1.1 
GO TO 36 

43 I T= I Tt 1 

RIZ(0V*RFIX-0VFIX*RI)/(DV-DVFIX) 

IF ( IT- IT MAX ) 36 » 36 » 39 

46 ASSIGN 43 TO IS3 
ASSIGN 48 TO IS2 
DVSAVEzDV 
RSAvEzRI 

GO TO 43 

47 ASSIGN 43 TO IS2 
ASSIGN 49 TO IS3 
DVSAVEzDV 
RSAVEzRI 

60 TO 43 

48 RFIXZRSAVE 
DVFIXzDVSAVE 
ASSIGN 43 TO IS2 
ASSIGN 46 TO IS3 
GO TO 43 

49 RFIXZRSAVE 
DVFIXzDVSAVE 
ASSIGN 47 TO IS2 
ASSIGN 43 TO IS3 
GO TO 43 

39 R2ZRI 
X23ZXZ2 

CALL SCREEN ( X21 , X22 » R1 r RN r 3, 1REDC1) 

IF ( Rl-RN )45»45lr45 
451 RETURN 

45 IREDClzO 
R1ZRN 

GO TO 50 

51 IF ( ISLIP ) 6 » 6 » 7 
7 DXZR1-DXB 

XZ2=XZ2+DX*SIN(THETB) 

X21=X21-DX*C0S(THETB)*C0S(PHI2) 

X22=X22-DX*C0S(THETB)*SIN(PHI2) 

IF ( XRADT (XZ2)-RT)9»10»10 
10 CALL SCREEN(X21»X22»X23»R1»RN,1, IREDCl) 
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IF (Rl-RN) 11*12*11 

12 R2SR1 
RETURN 

11 0RSR1-RN 
R1=RN 

RTSRl/COS ( THETB ) 

IREOClsO 

IF (XRADT (XZ2)-RT)9» 13» 13 

13 X21=X21*<DR) *COS( THETB) *C0SIPHI2) 

X22=X22+( DR ) *COS < THETB ) *S I N f PH 1 2 ) 

X23SX23- ( DR ) *SIN( THETB) 

R23R1 

RETURN 

6 DX1=(XRADT(XZ1)-XR1*SIN(TH1) )*COS(THETB) 

IF(DX1-R1 )52r 52»53 

52 IF ( XRADT ( XZ1 ) -RT ) 54# 55» 55 

54 XZ2=XZ1 
60 TO 9 

55 X23=X21*-(R1-DX1)*SIN(THETB) 

X21=X11- { R1-DX1 ) *COS ( THETB ) *COS ( PH I 1 ) 

X22=X 12- ( R1-DX1 ) *COS ( THETB ) *5 1 N C PH 1 1 ) 

IF (XRADT (X23)-RT)56#57#57 

56 XZ2=X23 
60 TO 9 

57 CALL SCREEN(X21»X22»X23»R1»RN#1»IREDC1) 

IREDC1=0 

DR=R1-RN 

R1SRN 

RTSRl/COS (THETB) 

IF ( XRADT (X23) -RT) 56 » 58 r 58 

58 X2 lsX21*0R*C0S ( THETB ) *COS ( PHI 1 ) 

X22=X22+DR*C0S (THETB )*SIN(PHI1) 

X23=X23-DR*'SIN( THETB) 

R2SR1 

RETURN 

53 DTHET ArABS (TH1-TH2 ) 

DR=S6RT (XR1*XR1*SIN (DTHETA ) **2*( XR2-XR1*C0S (DTHETA) ) **2) 
0X1= ( XRADT (X21 ) -XR1*SIN( TH1 ) ) *COS ( THETB ) 

DX2=( XRADT (XZ2)-XR2*SIN(TH2) ) *COS( THETB) 
DDR=0R*(R1-DX2)/(DX1-DX2) 

AN6LE=AC0S( (DX1-DX2 ) /DR ) 

IF(TH1-TH2)59»60#60 

59 AN6=1.5707963-AN6LE-THETB 
SI6=1. 

60 TO 61 

60 AN6=1 .5707963-THETB+AN6LE 
SI6=-1. 

61 DRHO=SI6*DR*COS(AN6) 

DZ=DR*S IG*SIN ( ANG ) 

X23=XZ1*DZ 

RPR0=XR2*C0S ( PHI2-PHI 1 ) 

DRsRPRO-XRl 

XSIDE=XR2*SIN(PHI2-PHI1)*DRHU/DR 

RHB=XRADT(X23)-R1 
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UPHI=ASIN(XSIDE/RHB) 

PHI-PHI1*-DPHI 

x21=RHB*C0S(PHI) 

X22=RHB*SIN(pHI ) 

CALL SCREEN <X21,X22,X23,R1»RN,1,IREDC1) 

1RLDC1-0 

UR=R1-KN 

R1=RN 

RT=R1/C0S<THET6) 

IF ( XR ADT ( X23) -RT ) S6 » o2» 62 
62 X21=X21-0P*C0S(THET6)*C0S(PHX) 

X22=X22+DR*C0S(THETb)*SIN(PHX) 

X23=X23-L)H*S IN ( THETb ) 

K2=R1 

RETURN 

lNO 

SUBROUTINE LIGLEv(QT) 

C0MM0N/Pk0PKT/PPZ<o0),TPZ<30>#SPZ<30),VPZ<30),RPLZ(3Q),UPLZ(30)» 

X RPGZ(3o) ,UPGZ<30) 

COMMON/P YMAM/TIMPROP ( 30 ) »PTIM(30) »QLTIM(30) f WMLOTIMI30) »SANTIM(30) 
X »GANTIM(30) ,GPATXM(30) 

COMMON/TLIQX/TLTIMX (15,15,15) »TLTIME ( 15) » RZTL ( 15) , ZZTLC 15) 
COMMON/SITtX/RBSITX(100,10),FREQX(l00,l0) ,XSITE (3,100 ),TSITE(100) , 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX < 10 ) , ZRADTX ( 10 ) 

COMMON/BUBBLE/WAKV(3rlOOO) »VB<3»1000) »XB(3,1000) ,RB<1000) » 

X RBA(IOOO) , IB (1U00) ,DMBGF (1000) ,DMB( 1000), CDRA«( 1000) 

COMWON/CONVERG/DBUBCO , DL I QCO » DLEVCO , OCONCO , DENRCO , UFORCO 
COMMON/SURF AS /ZSURF , SURF AN , I SLIP 

C0MM0N/LICUID/wML0,DMLl,DMLBF,TSUPRLrQL»REYN12»REYN23,AC0F(3) , 

X EXPN(3) ,TBULKL 

C0MM0N/GASPR0/HG»RBMIN,N6 

COMMON/GNRL/DT IME , DTIMEX , TIMEND, TIMPRNT ( 1000 ) , IPRINTL , IPRINTU, 

X NTAPEr IRESTRTf TIME, PIMPS, PARIMP 

COMMON/VO I D/VOFR AC, DMBTOT 

COMNOn/INTEGR/NTL,NTlR,NTL2,NRFT,NSITE,NRZ,NPTIM,NPROP,IWAKE 

COMMON/ AUCONST/CWAKE , BWAKE , SCRAD , ARBDEN ,OEGFAC , ICRO ( 3 ) 

DCON=l. 

P=P2(TIME+OT) 

TMLGbrO. 

QMtJTOT=0 . 

IF ( NB >83,83,84 
84 UO 80 1=1, Nd 

80 TMLDB=TMLDB+OMbGF(I)»D£GFAC 
83 T0TML=DML1+TMLUB 

IF(TMLDB)bl,Ql,a 2 

82 TBULKL= ( UNLl^TBULKL+TSZT ( P ) *TMLDB ) /TOTML 

81 uMLl=TOTML 
RHOL=RHZL(TBULKL) 

TOTVULL=UML1/RhOL 

TSAT=TSZT(P) 

TOTVOLBrO. 

RHOLS=RHZL(TSAT) 

IF ( NB ) 85 » 85 » 86 
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86 00 1 1=1 'NB 

TL=TZ(XBU>I) ,XB(2»I) »XB(3»I> >TIME*0T) 
PT=P*.2.*SIGZ(TL)/U44.*RBA<I) ) 

RH0G=RHGZ(PT) 

DMBT0T=DMBT0T*4«*3. 1416*RH0G*RBA( I ) **3/3* 

1 T0TV0LB=T0TV0L8*4.*3.1416*RBA(I)**3/3. 

T0TV0LB=T0TV0LB*0EGFAC 

DMBTOT=DMBTOT*DEGFAC 

85 ASSIGN 27 TO IS2 
ASSIGN 23 TO IS3 

totvol=totvoll*totvolb 

VOFRAC=TOTVOLB/TOTVOL 

IT=U 

ZFIX=0. 

ITMAX=50 

VFIX=TOTVOL 

2 SURFIN=SURFAN 

VTEST=TOTVOL-VOLFZT(ZSURF»SUHFIN) 

IF(ABS(VTEST)-u.001*DCON*TOTVOL)21»21»3 

3 IF ( VTEST ) 4 » 21 » 5 

4 GO TO IS2> (23»27#26) 
b GO TO IS3 » (23»26r29) 

23 IT=IT*1 

ZSURF=(VTEST*2FIX-VFIX*ZSURF)/(VTEST-VFIX) 

IF(IT-ITMAX)2»2»6 

6 GO TO 21 

26 VSAVEsVTEST 
ZSAVE=ZSURF 
ASSIGN 23 TO IS3 
ASSIGN 28 TO IS2 
GO TO 23 

27 VSAVE=VTEST 
ZSAVE=ZSURF 
ASSIGN 23 TO IS2 
ASSIGN 29 TO IS3 
GO TO 23 

28 VFIX=VSAVE 
ZFIX=ZSAVE 
ASSIGN 23 TO IS2 
ASSIGN 26 TO IS3 
GO TO 23 

29 VFIX=VSAVE 
ZFIX=ZSAVE 
ASSIGN 27 TO IS2 
ASSIGN 23 TO IS3 
GO TO 23 

21 SURFAN=SURFIN 
DO 7 1=1 »NB 

7 OPBGF ( I ) =0 • 

RETURN 

END 

FUNCTION VOLFZT(ZSUKF»SURFIN) 

COMN'ON/PROPRT /PPZ ( 30 ) »TPZ(30) »SPZ(30) ,VPZ(30) »RPLZt3Q) »UPLZ(30) » 
X RPGZ(3U) »UPGZ(30) 
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COMMON/DYNAM/TIMPROPOO) ,PTIM<30) ,«LTIM(30) ,WMLOTIM(30) ,SANTIM(30) 
X ,GANTIM(30) ,GRATIM(30) 

C0MM0N/TLIGX/TLTIMX(15,15»15) »TLTIME(15) »RZTL(15) , ZZTL415) 
COMMON/SITEX/RBSITX<100,10) ,FREQX<100,10) >XSITE (3,100 ) ,TSITE< 100) , 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX ( 10 ) »ZRADTX(10) 

COMMON/BUBBlE/WAKV ( 3, 1000), Vb (3, 1000), XB (3, 1000), RB (1000), 

X RBA ( 1000 ) ,IB(1UOO) ,DMBGF( 1000) , DMBU000 ) ,CDRAG ( 1000 ) 

COMMON/CONVERG/DBUBCo , DLIQCO , DLEVCO , DCONCO , DENRCO , OFORCO 

common/surfas/zsurf»surfan,islip 

C0MM0N/LICUID/WML0,UML1,DMLBF,TSUPRL,QL,REYN12,REyN23,AC0F(3) , 

X EXPN(3) ,TBULKL 

COMMON/G ASPRO/HG , RBM I N , NB 

COHPON/GNRL/DTIME,DTIMEX,TIMEND,TIMPRNT(1000) ,IPRINTL,IPRINTU, 
x ntape,irestrt»time, pimps, parimp 

common/void/vofrac,dmbtot 

COMMON/ INTEGR/NTL , NTlR , NTLZ , NRFT , NSITE , NRZ , NPT IM , NPROP , I WAKE 
C0MM0N/ADC0NST/CWAKE,BWAKE,SCRAD,ARBDEN,DEGFAC,ICRD(3) 
DXB=XRADT(ZSURF)-XRADT(0. ) 

2 THETBrAT AN (DXB/ZSURF ) 

THETAB=AbS(THETB) 

SURFAsABS (SURFIN) 

DSIDsXRADT ( ZSURF) *SIN (SURFA ) *C0S(THETB ) /SIN ( 1 *570 7693-SURF A-THETB ) 
IF(DSID-ZSURF)7,7»6 

6 SURFIN=ATAN(ZSURF/XRADT(0.) )*SIGN(1.,SURFIN) 

SURFArABS (SURFIN) 

7 IF ( THETA B-0 .001)4,4,71 
71 IF ( THETB ) 3, 4 , 5 

4 V0LFZT=3.1416*XRADT( ZSURF )**2*ZSURF 
RETURN 

3 ACO=S IN ( 1 . 5707963-THET8 ) /SIN ( 1 , 5707963*THETB-SURFA ) 
bCO=SIN l 1 . S707963+THETB ) /SIN ( 1 . 5707963-THETB-SURFA ) 

RMAJR=XRADT (ZSURF) * ( ACO*BCO ) /2, 

DR=RMAJR-ACO*XRADT ( ZSURF ) 

ZUPR=ZSURF4DR*SIN ( SURFA ) 

RUPR=XRADT(ZUPR) 

DXB=DR*COS( SURFA) 

ANGLE=ACOS (DXB/RUPR ) 

RMINR=RUPR*SIN( ANGLE) 

ARLU=3.1416*RMINR*RMAJR 

ZL WR=ZSURF- ( RMA JR-ABS ( DR ) ) *S IN (SURFA ) 

V0LFZT=3 . 1 416*ZLwR* < XRADT ( 0 * ) **2*XRADT ( 0 . ) *XRADT CZLWR ) *XRADT ( ZLWR ) 
X **2)/3. 

RL#R=XRADT(ZLWR) 

VOLFZT=VOLFZT*RLwR*<3.1416*RLWR**2*SIN<l.5707963-THETAB)-ARLU* 

X SIN( 1,5707963-THETAB-SURFA) ) /SIN(THETAB) 

RETURN 

5 ACO=SIN{ 1 . 5707963-THETB ) /SIN (1 . 5707963*THETB-SURFA ) 

BCO=S IN ( 1 . 5707963+THETB ) /SIN ( 1 , 5707963-THETB-SURFA ) 

RMA JRsXRADT ( ZSURF) * ( ACO+BCO ) /2. 

ZUPR=ZSURF-MRMAJR-ACO*XRADT(ZSURF) )*SIN(SURFA) 

RUPR=XRADT(ZUPR> 

DXB= ( RMAUR-ACO*XRADT ( ZSURF ) ) *C0S (SURF A ) 

ANGLErACOS ( DXB/RUPR ) 
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km INR=RUPR*S IN ( ANGLE » 

ARLU=3.1416*RMINR*RMAJR „ iPiiBril 

2LWR=2SURF-(RMAJR-ABS(RMAJR-AC0*XRADTCZSURF) ) )*SIM(SURFA) 

RLWR = XR ADT ( ZLWR ) 

RZEROrXPADT ( 0. ) 

VOLFXT=3.1416*ZLwR*(KZERO**2+RZERO*RLWR'*RLWR**2)/3. 
VOLFZT=VQLFXT*RLWR* ( ARLU*SIN ( 1 . 5707963-THETAB-SURFA ) * {l ,%2.*TAN ( 

X THETAb) *TAN(SURF A) ) -3 . 1‘*16*RLWR**2*SIN ( 1 , 5707963-THETAB ) )/ 

X SIN(THETAB) 

RETURN 

END 

FUNCTION UGSZ(P) 

COMMON/PROPRT/PPZ ( 30 ) *TPZ<30) *SPZ(30) *VPZ(30) rRPLZ<30) ,UPLZ(30) » 

X RPGZ(30) *UPGZ(30) 

COMMON/P YNAM/T I MPROP ( 30 ) »PTIM(30) ,QLTIM<30) , WMLOTIM(30) *SANTIM(3Q) 
X »GANTIM(30) »GRATIM(30) 

C0MM0N/TLIQX/TLTIMX(15» 15*15) *TLTIME(15) »RZTL(15> »ZZTL(15) 

COMMON/S ITEX/R6SITX (100*10) ,FREQX (100*10)* XS I TE (3*100) *TSITE ( 100 ) * 


X TRFTIM(IO) 

COMMON/T ANKX/RADTX ( 1U ) »ZRADTX ( 10 ) 

COMMON/BUBBLE/wAKV ( 3* 1000) »Vb (3*1000) »XB (3*1000) *R8 (1000)* 

X RBA ( 1000 ) * IB (1000) *DMBGF(1000) » DMB ( 1000 ) ,CDRAG( 1000) 

COMMON/CONVERG/DBUBCO * DL I QCO * DLEVCO , DCONCO * DENRCO , DFORCO 
COMMON/SURFAS/ZSURF* SURFAN* ISLIP 

COMMON/L ICUID/WMLO * DML1 * DMLBF *TSUPRL * QL *REYN12 * REYN23 * ACOF ( 3 ) » 

X EXPN(3)*TBULKL 

COMMON/GASPRO/HG»RBMIN*NB 

COMMON/GNRL/DTIME»DTlMEX, TIMEND# TIMPRNT(IOOO) * IPRINTL, IPRINJU* 

X NTAPE* IRESTRT*TIME*PIMPS*PARIMP 

COMMON/VOID/VOFRAC »DMBTOT 

COMMON/INTEGR/NTL»NTLRrNTLZ*NRFT»NSlTE*NRZ»NPTIM*NPROP,IMAKE 
COMMON/ ADCONST/C WAKE * BWAKE , SCRAO * ARBDEN *DEGFAC * ICRD t 3 ) 

CALL TABL(P*UGSZ»PPZ(1) * UPGZ (1) *1*1*1* NPROP * IFB ) 


RETURN 

ENO 

FUNCTION ULSZ(T) „ „ 

COMMON/PROPRT/PPZ(30) »TPZ(30) *SPZ(30) # VPZOO) *RPLZt30) *UPLZ(30 ) * 

X RPGZ(30) *UPGZ(30) 

COMMON/DYNAM/TIMPROP ( 30 ) » PTIM( 30 ) *«LTIM(30 ) * WMLOT IM < 30 ) *SANj IM ( 30 ) 
X * GANTIM ( 30) *GRATIM(30) 

COMMON/TLIOX/TLTIMX(15* 15*15) »TLTIME ( 15) »RZTLl 15) *ZZTL<15> 
COMMON/SITEX/RBS1TX(100»10) *FRE0X(100» 10) * XSITE (3 * 100 ) *TSITE(100) » 
X TRFTIM(IO) 

COMMQN/T ANKX/RADTX ( 10 ) * ZRADTX ( 10 ) 

COMMON/BUBBLE/WAKV (3* 1000) » VtH3» 1000) *XB(3*1000) *RB(1000) * 

X RBA(lOuO) ♦ IB (1000) , OMBGF < 1000 ) *DMB( 1000 ) *CDRAG(1000) 

COMMON/CONV£RG/DBUbCO*DL I QCO* DLEVCO, DCONCO* DENRCO, DFORCO 
COMMON/SURFAS/ZSURF » SURFAN , IbLIP 

C0MM0N/LICUID/WMl0*DmL1»DML8F,TSUPRL»QL*REYN12»REYN23,AC0F(3) » 

X EXPN(3) ,TBULKL 

common/gaspro/hg,rbmin,nb 

COMMON/GNRL/DTIME *DTIMEX, TIMEND* TIMPRNT( 1000 ) *IPRINTL,IPRINtu, 

X NTAPE* IRESTRT* TIME, PIMPS »PAPIMP 

COMMON/VOID/VOFRAC, DMBTOT 
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COMMON/ 1 NTEGR/NTL » NTLR » NTL2 , NRFT , NS I TE » NRZ , NPT IM > NPPOP . I WAKE 
COMMON/ AOCONST/C M AKE » BwAKE » SCR AD , ARBDEN , DEGF AC , I CRD 1 3 ) 

CALL TABLtT »ULSZ»TPZ(1) vUPLZ(l) » 1 » 1 , 1 . NPROP . IFB) 

RETURN 

END 


FUNCTION SIGZ(T) 

COMMON/PROPRT/PPZ130) » TPZdQ) »SPZ<30 ) » VPZ< 30) >RPLZ*30) ,UPLZ<30) , 

X RPGZ ( 30 ) , UPGZ < 30 ) 

COMMON/DYNAM/TIMPROP < 30 ) ,PTIM<30> ,QLTIWt30> » WMLOTJMI 30) #SAN T IM{30 ) 
X #GANTIM(30) »GRATIM(30) 


C0MM0N/TLIQX/TLTIMX<15,15,15>,TLTIMEU5),RZTL<15),ZZTLU5) 
C0MM0N/SITEX/R8SITX< 100, 10 ) >FREGX( 100. 10 ) » XSITEC3, 100 ) ,TSITE( loO ) » 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX ( 10 ) »ZRAOTX<10> 

COMMON/BUBBLE/WAKV<3,1000),VB<3,1000),XB<3,1000),RB<1000), 

X RBA(IOOO) »I8flUOO) »DMBGF (1000) »DMB( 1000) »CDRA6(loOO) 

COMMON/CONVERG/DBUBCO r OL IGCO » DLEVCO , DCONCO . OENRCO , OFORCO 
COMMON/SURF AS/ZSURF, SURFAN. ISLIP 

COMMON/LICU ID/WMLO , DMLl » DMLBF , TSUPRL , QL ,REYN12 , REYN23 , ACOF ( 3 ) , 

X EXPN(3)»TBULKL 

COMMON/GASPRO/HG , RBM J N , NB 

COMMON/GNRL/DTIME»UTIMEX,TIMEND»TIMPRNT(lOOO)»IPRlNTL,IPRINTU, 

X NTAPE#IRESTRT»TIME,PIMPS»PARIMP 

COMMON/VO I D/VOFR AC , DMBTOT 

COMMON/ 1 NTEGR/NTL » NTLR » NTLZ , NRFT , NS I TE » NRZ , NPT IM » NPROp . I WAKE 
COMMON/ ADCONST/CWAKE » BWAKE r SCRAD » ARBDEN »DEGFAC » ICRD < 3 ) 

CALL TABL(T,SIGZ»TPZ<1> ,SPZ(l),l.l,l.NPROP»IFB) 

RETURN 


END 

FUNCTION RHZL(T) 

COMMON/PROPRT/ppz < 30 ) , TPZ < 30 > ,SPZ < 30 > , VPZ ( 30 ) »RPLZi30 ) ,UPLZ ( 30 ) , 
X RPGZ<30) ,UPGZ<30) 


COMMON/DYNAM/TIMPROP(30>,PTIMt30),QLTItf(30),WML0TlM(30)»SANTIM(30) 

X »GANTIM(30) »GRATIM(30) 

COMMON/TLIOX/TLTIMX (15,15,15), TL TIME (15) , RZTL (15) ,ZZTL{15> 

COMMON/S I TEX/RBSITX (100,10) , FREQX (100 . 10) »XSITE(3»10Q)»TSITE(1G0) » 
X TRFTIM(IO) V 


C0MM0N/TANKX/RADTX(10) .ZRADTX(IO) 

COMMON/BUBBLE/WAKV (3,1000) » VB(3» 1000 ) , XB( 3 , 1000 ) ,RB(1000) , 

X RBA(IOOO) »IB(1000) »DMBGFC 1000) »DMB <1000 ) .CDRAG(lQOO) 

COMMON/CONVERG/DBUBCO , OL IOCO , OLE VCO , DCONCO , OENRCO , OFORCO 

COMMON/SURFAS/ZSURF , SURFAN. IbLIP 

COMMON/L ICUID/WMLO » DMLl » DMLBF »TSUPRL»QL.REYN12,REYN23. ACOF ( 3) » 

X EXPN(3) »TBULKL 

COMMON/GASPRO/HG , RBM I N , NB 


COMMON/GNRL/DTIME»OTIMEX,TIMEND»TIMPRNT<1000)»IPRINTL,IPRINTU. 

X NTAPE#IRESTRT»TIME, PIMPS, PARIMP 

COMMON/VOIO/VOFRAC r DMBTOT 

COMMON/ I NTEGR/NTL, NTLR, NTLZ, NRFT , NSI TE » NRZ. NPT IM. NPROP. I WAKE 
COMMON/ AOCONST/C WAKE , BW AKE , SCRAD , ARBDEN . DEGF AC . ICRD ( 3 ) 

CALL TABL ( T ,RHZL, TPZ( 1 ) ,RPLZ ( 1) , 1 ,1 , 1, NPROP. IFB) 

RETURN 

END 

FUNCTION RHGZ(P) 
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COMMON/PROPRT/PPZUO) ,TPZ<30) »SPZ (30 )» VPZ( 30 ) »RPLZ ( 30 ) ,UPLZ ( 30 ) » 

X RPGZ(3Q) ,UPGZ(30) 

COMMON/DYNAV,/TIMPROP(30) » PTIM ( 30 ) »QLTIM(30) »WMLOTIM(30) »SANTXM(30) 

X rGANTlM(30) »GRATIM(30) 

C0MM0N/TLIQX/TLTIMX(15U5U5> , TLTIME ( 15 ) »RZTL ( 15) ,ZZTL<15) 
COMMON/SITEX/RBSITX (100*10) , FREQX ( 100 , 10 ) > XSITE (3, 100 ) , TSITE ( luO ) » 

X TRFTIM(IO) 

COM WON/ T ANKX/RADTX ( lU ) * ZRAUTX ( 10 ) 

COMMON/BUBBLE/wAKV (3,1000) » VO (3* 1000) »XP(3,100n) ,RB(1000> » 

X RBAUOOO) » IB(IOOO) »DMBGF(1000) »DMB(100U),CDRAG(1000) 

COMMON/CONVERG/DBUBCO,OLIGCO»DLEVCO,DCONCO,DENRCO,DFORCO 
COMMON/SUHFAS/ZSURF » SURF AN, ISLIP 

COMMON/LICUID/WMLO,DMLl»DMLBF»TSUPRLr QL»REYN12fREYN23»AC0F(3) , 

X EXPN(J) ,TBULKL 

COMMON/GASPRO/HG , rbmin , nb 

COMMON/GNRL/DTIME»DT1MEX,TIMLND»TIMPRNTUOOO) »IPRINTL,IPRINtu, 

X NTAPE, IRtSTRT * TIME, PIMPS* PAR IMP 

COMMON/VOID/VOFRAC » DmBTOT 

COMMON/ INTEGR/NTL*NTLR»NTLZrNRFT»NSlTE»NRZ»NPTIM*NPROP,IWAKE 
COMMON/ADCONST/CWAKE»BWAKE»SCRAO»ARBOEN,OEGFAC»ICRD(3) 

CALL TABL(P*RHGZ,PPZ(1) * RPGZ ( 1 ) » 1 , 1 # 1 , NPROP, IFB) 

RETURN 

ENU 

FUNCTION PZ(TIM) 

COMMON/PROPRT/PPZ(30) »TPZ(30) »SPZ(30) »VPZ(30) »RPLZ<30) ,UPLZ(30 ) t 
X RPGZ(3U) ,UPGZ(30) 

COMMON/D YN AM/ T I MPR OP ( 30 ) , PTIM( 30 ) »QLTIM(30 ) , WMLOTlMt 30 ) *SANTIM( 30 ) 

X » GANTIM ( 30 ) » GRATIM ( 30 ) 

COMMON/TLIQX/TLTIMX (15*15*15) »TLTIME< 15) *RZTL(15) ,ZZTL<15) 

COMMON/S I TEx/RBS I TX ( 10 0*10) , FREQX ( 100 , 10 ) * XSITE ( 3 , 100 ), TSITE ( 11)0 ) » 

X TRFTIM(IO) 

C0MM0N/TANKX/RaDTX( 10) »ZRADTX(10) 

COMMON/BUBBLE/WAKV(3,1000> »VB(3»1000) *XB(3*1000) »RB(10Q0) , 

X RBAUOOO) * IB(IOOO) * DMBGF (1000) *DMB( 1000 ) » CDRAG ( loOO ) 

COMMON/CONVtRG/DBUaCO»DLIQCO#DLEVCO,DCONCOrDENRCO,DFORCO 
COMMON/SUPFAS/ZSURF , SURFAN , ISLIP 

COMMON/LICUID/WMLO » DML1 * DMLBF , TSUPRL * GL *REYN12 »REYN23» ACOF ( 3 ) , 

X EXPN ( 3 ) * TBULKL 

COMMON/GASPRO/HG* RBMIN, NB 

COMNON/GNPL/DTIME»UTIMEX,TIMEND#TIMPRNT(1000) »IPRINTL,IPRINtU» 

X NTAPEi IRESTRT#TIME,PIVPS»PARIMP 

common/void/vofrac,dmrtot 

COMMON/ INTEGR/NTL *NTLR*NTLZ,NRFT,NSITE*NRZ*NPTIM» NPROp, I WAKE 

COMMON/ AUC0NST/CWAKE,B*AKE,SCRAD»ARBDEN,DEGFAC,ICRD<3) 

CALL TABU TIM, PZ»TIMPR0P(1) ,PTIM<1) ,1,1,1, NPT IM , IFB ) 

RETURN 

END 

FUNCTION TSZT(P) 

COMMON/PROPRT/PPZUO) ,TPZ( 30) ,SPZ( 30) *VPZ( 30) »RPLZ( 30) ,UPLZ( 30) * 

X RPGZ(3u) *UPGZ(30) 

C0MM0N/DYNAM/TIMPR0P(30) , PT IM ( 30 ) , QLT IM ( 30 ) » WMLOT IM ( 30 ) » SANflM ( 30 ) 

X »GANTIM(30) ,GHAT1M(30) 

COMMON/TLIQX/TLTIMX (15, 15 U5) , TLTIME ( 15) »RZTL( 15) ,ZZTLC15) 
COMMON/SITEX/RBSITX (100*10) , FREQX ( 100 , 10 ) # XSITE ( 3, 100 ), TSITE ( 100 ) , ^ 
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X TRFTIM(IO) 

COMMON/T ANKX/RADTX < 10 ) » ZRADTX ( 10 ) 

C0MM0N/BUBBLE/WAKV<3» 1000) »VB(3* 1000) ,XB(3» 1000) >RBI1000) , 

X RBA(IOQO) » IB(IOOO) #DMBGF(1000> » DMBtlOOQ ) , CDRAG ( 1000 ) 

COMMON/C ON VERG/DBUBCQ » OL IGCO » OLE VCO , DCONCO , OENRCO , OFORCO 
C0MM0N/5URFAS/ZSURF»SURFAN,IS»LIP 

COMMON/LICUIO/WMLO»DML1»DMLBF»TSUPRL»QL»REYN12»REYN23,ACOF(3) * 

X EXPN(3)»TBULKL 

COMMON/GASPRO/HG, RBM IN » NB 

COMMON/GNRL/DTIME»DTlMEX f TIMENDrTIMPRNT(1000) »IPRlNTL,IPRINTUt 
X NTAPEr IRESTRT»TIME»PIMPS»PARIMP 

COMMON/VOID/VOFRAC,DMBTOT 

COMMON/ INTEGR/NTL » NTLR # NTLZ , NRFT » NSITE » NRZ » NPTIM* NPROp , I WAKE 
COMMON/ ADCONST/C WAKE , B WAKE , SCR AD * ARBDEN , DEGF AC , ICRD ( 3 ) 

CALL TABL ( P * TSZT »PPZ ( 1 ) *TPZ ( 1 ) * 1 1 1 * 1 * NPROP, IFB) 

RETURN 

END 

FUNCTION XRADT(Z) 

COMMON/PROPRT/PPZ ( 30 ) , TPZ < 30 ) * SPZ < 30 ) , VPZ ( 30 ) » RPLZ (30 ) , UPLZ ( 30 ) * 

X RPGZ(30) »UPGZ(30) 

COMMON/DYNAM/TIMPROP(30) »PTIM(30) »QLTIM(30) »WMLOTIM(30) »SANTIM(30) 
X tGANTlM(30) »GRAT1M(30) 

COMMQN/TLIQX/TLTIMX (15*15*15) ,TLTIME< 15) »RZTL ( 15) ,ZZTLU5) 
COMMON/SITEX/RBSITX(100»10) ,FREQX< 100*10) *XSITE (3,100 )#TSITE(100) , 
X TRFTIM(IO) 

COMMON/T ANKX/RADTX ( 10 ) » ZRADTX (10) 

COMMON/BUBBLE/WAKV(3,1000> »VB<3* 1000) *XB<3* 1000) *RB( 1000) » 

X RBA ( 1000 ) * IB (1000) *DMBGF (1000) »DMB C 1000 ) , CDRAG ( 1000 ) 

CQMM0N/C0NVERG/DBUBC0»DLIQC0*DLEVC0, DCONCO, OENRCO, OFORCO 
common/surfas/zsurf»surfan,islip 

C0MM0N/LICUID/WML0,DML1»DMLBF,TSUPRL»QL,REYN12»REYN23,AC0F(3) ♦ 

X EXPN(3) rTBULKL 

common/gaspro/hg,rbmin,nb 

COMMON/GNRL/DTIME#DTIMEX,TIMEND»TIMPRNT(1000) , IPRINTL , IPRINTU* 

X NTAPE* IRESTRT»TIME,PIMPS»PARIMP 

COMMON/VO IO/VOFRAC , DMBTOT 

C OMMON/ 1 NTEGR/NTL » NTLR * NTLZ * NRFT » NS I TE * NRZ , NPTIM, NPROP , I WAKE 
COMMON/ADCONST/CWAKE , BWAKE , SCRAD , ARBDEN ,DEGFAC , ICRDt 3 ) 

CALL TABL(Z,XRADT , ZRADTX ( 1 ) ,RADTX(1 ) , 1 , 1, 1 ,NRZ» IFB) 

RETURN 

END 

FUNCTION VISCZ(T) 

COMMON/PROPRT/PPZ < 30 ) » TPZ < 30 ) *SPZ < 30 ) , VPZ ( 30 ) * RPLZ < 30 ) , UPLZ ( 30 ) r 
X RPGZC30) »UPGZ(30) 

C0MM0N/DYNAM/TIMPROP(30) »PTIM(30) ,QLTIM(30) ,WMLOTIM(30) »SANTIM(30) 
X ,GANTIM(30) »GRATIM(30) 

COMMON/TLIQX/TLTIMX (15*15*15) ,TLTIME(15) ,RZTL(15) ,ZZTL(15) 
COMMON/SITEX/RBSITX(100»10) ,FREQX(100,10)»XSITE(3,100) ,TSITE(100) , 
X TRFTIM(IO) 

C0MM0N/TANKX/RADTX(10) »ZRADTX(10) 

C0MM0N/BUBBLE/WAKV(3, 1000) »VB(3, 1000) ,XB(3, 1000) »RB(100O) , 

X RBA (1000) ,IB(1000) ,DMBGF ( 1000 ) ,0MB ( 1000 ) , CDRAG ( 1Q00 ) 

COMMON/CONVERG/DBUBCO , DLIQCO » OLE VCO , DCONCO , OENRCO , OFORCO 
COMMON/SURFAS/ZSURF»SURFAN,ISLIP 
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COMMON/LICUID/WMLO » UML1 , DML6F , TSUPRL » QL »REYN12» REYN23, ACOF C 3 ) , 

X EXPN ( 3 ) , TBULKL 

COMMON/GASPRO/HG » RBMiN, NB 

COMMON/GNRL/DTIME,UTIMEX,TIMEND»TIMPRNT<1000) , IPKINTL , IPRINTU, 

X NTAPE# IRESTRT»TIME#PIMPS»PARIMP 

COMMON/VOIU/VOFRAC # Di'iBTOT 

COMMON/ I NTEGR/NTL*NTlR»NTLZ#NRfT»NSITE,NRZ,NPTIM, NPROP, I WAKE 
COMMON/ ADCONST/C WAKE »BwAKE r SCR AO# ARBDEN,DEGFAC» ICRD( 3) 

CALL TABUT, VISCZ#TPZ( 1) » VPZ ( 1 ) , 1 , 1 , 1 , NPROP # IFB ) 

RETURN 

END 

FUNCTION LEVANG(TIM) 

COMMON/PKOPKT /PPZ (30) , TPZ ( 30 ) #SPZ(30) # VPZ ( 30 ) » RPLZ 130 ) , UPLZ ( 30 ) » 

X RPGZ ( 30 ) » UPGZ ( 30 ) 

COMMON/D YN AM/ T I MPR OP (30) ,PTIM(30) #QLTIM(30) # WMLOTlMC 30 ) ,SANJIM ( 30 ) 
X »GANTIM(30) »GRATIM(30) 

COMMON/TLIOX/TLTIMX ( 15 » 15 » 15 ) ,TLTIME< 15) »RZTL (15) ,ZZTL115) 
COMMON/SITEX/RBSITX(100»10) # FREOX ( 100 # 10 ) »XSITE( 3,100 ) ,TSITE(100) , 
X TRFTIMQO) 

C0MM0N/TANKX/RADTX(10) ,ZRADTX(10) 

C0MM0N/P.UBBLE/wAKV(3, 1000) »Vd(3»1000) , XP ( 3 # 1000 ) , R0 ( 1000 ) , 

X KBA(IOOO) » IB (1000) , DMBGF ( 1000 ) » DMB < 1000 ) , CDRAG ( 1000 ) 

COMMON/CONVERG/DBUdCo#QLIOCO,DLEVCO,DCONCO,DENRCO,DFORCO 
COMMON/SURFAS/ZSURF#SURFAN,ISLIP 

C0MM0N/LICUID/WML0,DML1#DMLBF,TSUPRL»QL,REYN12»REYN23,AC0F(3) , 

X EXPN ( 3 ) , TBUlKL 

COMMON/GASPRO/HG # RdMIN, NB 

COMMON/GNRL/DTIME#UTIMEX,TIMEND»TIMPRNT(1000) , IPRINTL , iprintu, 

X NTAPE# IRESTRTf time, PIMPS #PARIMP 

COMMON/VO 10/ VOFR AC » DmBTOT 

COMMON/ INTEGR/NTL #NTLP,NTLZ,NRFT, NS ITE,NRZ,NPTIM» NPROP, I WAKE 
COMMON/ ADCONST/CwAKE » BW AKE , SCRAD , ARBDEN ,DEGFAC , ICRD ( 3 ) 

CALL TAPL(TIM#LEVANG,TIMPRUP(1) , SANT IM ( 1 ) , 1 , 1 , 1 ,NPTIM, IFB ) 

RETURN 

END 

FUNCTION GRAVITY(TIM) 

C0MM0N/Pk0PRT/PPZ(30) , TPZ ( 30 ) ,SPZ(30> , VPZ ( 30 ) ,RPLZ < 30 ) ,UPLZ ( 30 ) » 

X RPGZ (30) , UPGZ (30) 

COMMON/DYNAM/TIMPROP(30) ,PTIM(30) ,QLTIM(30) ,WMLOTIM(30) ,SANTIM ( 30 ) 
X ,GANTIM(30) ,GRATiM(30) 

COMMON/TLIOX/TLT1MX ( 15# 15 » 15) » TLTIME ( 15 ) # RZTL ( 15) ,ZZTL(15> 

COMMON/S ITEx/RtiSITX( 100# 10) # FREOX ( 10 0 # 10 ) # XSITE ( 3 , 100 ) , TSITE ( 1 00 ) , 
X TRFTIM(IO) 

COMMON/TANKX/RADTX ( 10 ) » ZRADTX ( 10 ) 

COMMON/ BUBBLE /wAKV ( 3 # 1 0 00 ) »Vd(3»l000) »XP(3#1000) »RB(1000) » 

X RBA(lUuO) #Ib(lU00) #DMBGF(1000) » DMB (1000) , CDRAG (1000) 

COMMON/CONVERG/DdUBCG » DLIQCO » DLEVCO # DCONCO # DENRCO,DFORCO 
COMMON/SURFAS/ZSURF#SURFAN» ISLIP 

COMMON/UCUID/WMLO # DmLI » DMLBF » TSUPRL # OL #REYN12#REYN23, ACOF ( 3 ) # 

X EXPN ( 3 ) » TBULKL 

COMMON/GASPRO/HG# RBMIN #NB 

COMMON/GNRL/DT IME #DTIMEX,T I MEND #TIMPRNT Cl 000 )» IPRINTL, IPRINTU, 

X NTAPE, IRESTRT# TIME, PIMPS, PARIMP 

COMMON/VOID/VOFRAC , DMB TOT 
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COMMON/ INTEGR/NTL » NTLR r NTLZ r NRFT # NS ITE » NRZ t NPTIM » NPROp , I WAKE 
COMMON/ AOCONST/CwAKE » BWAKE » SCRAD * ARBDEN ,DEGF AC » ICRD ( 3 ) 

CALL T ABL ( T IM » GRAVITY »TIMPROP(l) t GRATIMtl ) »1 »1» 1»NPTIM» IFB) 

RETURN 

END 

FUNCTION GKANGL(TIM) 

COMMON/PROPRT/PPZ ( 30 ) #TP2(30) »SPZ(30) , VPZ ( 30 ) »RPLZ<30 ) ,UPLZ ( 30 ) » 

X RPGZ 1 3U ) »UPGZ ( 30 ) 

COMMON/OYNAM/T IMPROP ( 30 ) fPT!M(30) ,QLTIM(30) ,WMLOTIM(30) »SANTIM(30) 
X »GANTIM(30) *GRATIM(30) 

C0MM0N/TLIQX/TLTIMX(15,15*15)»TLTIMEU5WRZTL(15> ,ZZTLI15) 
COMMON/SITEX/RBSITXdOOflO) »FREQX(100#10) #XSITF(3» 100) »TSITE(lo0 ) t 
X TRFTIMUO) 

COMMON/TANKX/RAOTX ( 10 ) » ZRAOTX t 10 ) 

COMMON/BUBBLE/WAKV(3»lOOO) » VO( 3 » 1000) »XB(3> 1000) »RB< 1000) » 

X RBA(IOOO) » IB{ 1000 ) »DMBGF (1000) »DMB ( 1000 ) , CDRAQ < loOO ) 

COMMON/CONVERG/OBUdCO » OL IQCO » OLE VCO » DCONCO , DENRCO , DFORCO 
COMMON/SURFAS/ZSURF»SURFANr ISLIP 

COMMON/L ICUID/WMLO , DML1 » DMLBF , TSUPRL » OL » REYN12 » REYN23 , ACOF < 3 ) » 

X EXPN(3) rTBULKL 

common/gaspro/hg»rbmin»nb 

COMMON/GNRL/DTIME»DTIMEXrTIMEND»TIMPRNTUOOO) »IPRINTL,IPRINTU» 

X NTAPE# IRESTRT»TIME»PIMPS»PARIMP 

COMMON/VOID/VOFRAC,DMBTOT 

COMMON/ 1 NTEGR/NTL»NTLR» NTLZ »NRFT » NSITE »NRZ»NPT IM» NPROp, I WAKE 
COMMON/ ADCONST/C WAKE , BWAKE » SCRAD r ARBDEN , DEGFAC » ICRD ( 3 ) 

CALL TABL(TIM,GRANGL»TIMPR0P(1) ,GANTIM{1) ,l,lrl,NPTIM,IFB) 

RETURN 

END 

FUNCTION RBSITZ (N# TIM) 

COMMON/PROPRT/PPZ ( 30 ) , TPZ < 30 ) » SPZ ( 30 ) » VPZ ( 30 ) # RPLZ ( 30 ) , UPLZ ( 30 ) » 

X RPGZ ( 30 ) » UPGZ<30 ) 

COMMON/DYNAM/TIMPROP(30) #PTIM(30) »QLTIM(30) ,WMLOTIM<30) »SANTIM(30) 
X »GANTIM(30) *GRATIM<30) 

COMMON/TLIOX/TLTIMX(15»15»15)»TLTIME(15)»RZTL<15) ,ZZTLU5) 
COMMON/SITEX/RBSITX(100»10) rFREQX ( 100 » 10 ) »XSITE (3,100 ) #TSITEUG0) , 
X TRFTIM<10) 

COMMON/T ANKX/RADTX ( 10 ) » ZRADTX ( 10 ) 

C0MMON/BUBBLE/WAKV(3»1000) »VB( 3 » 1000) »XB<3» 1000) #RB( 1000) » 

X RBA(IOOO) r IB (1000) »DMBGF (1000 ) t DMB ( 1000 ) , CDRAG ( 1000 ) 

COMMON/CONVERG/DBUBCO»DLIQCOfDLEVCO»DCONCO»OENRCO r DFORCO 
COMMON/SURFAS/ZSURF# SURFAN, ISLIP 

COMMON/L ICU ID/ wMLO » DML 1 » DMLBF * TSUPRL *QL» RE YN12 >R£YN23 » ACOF ( 3 ) , 

X EXPN ( 3 ) » TBULKL 

COMMON/GASPRO/HGrRBMIM,NB 

COMMON/ GNRL/DT I ME , OT l ME X , T I MEND , T IMpRNT ( 1 0 0 0 ) r I PR I NTL , I PR INTU , 

X NT APE » IRESTRT » T IME » P IMPS » PAR IMP 

COMMON/VOID/VOFPAC f dmbtot 

COMMON/ INTEGR/NTL * NTLP , NTLZ » NRFT » NSITE »NRZ t NPT IM » NPROp , I WAKE 
COMMON/ADCONST/CwAKE rBwAKE, SCRAD* ARBDEN, DEGFAC » ICRD(3) 

DIMENSION DUMMY (10) 

DO 2 1=1 » NRFT 
2 DUMMY ( I ) =RBSITX (N» I ) 

CALL TABL ( TIM »RBSITZ»TRFTIM(1) , DUMMY (1 ) ,1,1,1 ,NRFT, IFB) 
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RETURN 

END 

FUNCTION FREQ2TCN,TIM1»TIM2) 

COMMON/PROPRT/PPZ ( 30 ) * TPZ ( 30 ) »SPZ(30) ,VPZ( 30) »RPLZ(30) ,UPLZ(30 ) t 
X RPGZ(30) ,UPGZ<30) 

COMMON/DYNAK/TIMPROP { 30 ) »PTIM(30) »QLTIM(30) »WML0TIM(30) #SANTIM(30) 
X »GANTIM(30) »GRATIM(30) 

COMMON/TLIQX/TLTIMX( 15 » 15»15) »TLTIME<15) »RZTL(15) ,ZZTLtl5) 

COMMON/S I TEX/RBS I TX ( 100» 10) >FREQX < 100 » 10) #XSITE(3, 100) »TSITE(1Q0 ) t 
X TRFTIM(IO) 

COMKON/T ANKX/RADTX < 1 0 ) » ZRADTX ( 10 ) 

COMMON/BUBBLE/WAKV (3» 1000 > #VB(3» 1000) »XB(3r 1000) #RB( 1000) * 

X KBA(IOOO) rltt(lOOO) »DMBGF ( 1000 ) »DMB C 1000 ) ,CDRAG ( 1QOO ) 

COMmON/CONVERG/DBUBCO , DL I QCO t DLEVCO , DCONCO » DENRCO , DFORCO 
COMMON/SURF AS/ZSURF » SURF AN, I SLIP 

C0MM0N/LICUID/WML0,DML1»DMLBF,TSUPRL»0L»REYN12»REYN23,AC0F(3)» 

X EXPN(3) fTBULKL 

COMMGN/GASPRO/HG , RBM IN , NB 

COMMON/GNRL/DTIME * DTIMEX , TIMEND » TIMPRNT ( 1000 ) » IPRINTL , IPRINTU » 

X NT APE » IRESTRT » TIME, PIMPS# PAR IMP 

COMMON/VOID/VOFRAC»DMBTOT 

COMMON/ INTEGR/NTL*NTLR»NTLZ»NRFT»NSlTE»NRZfNPTIM»NPROP,IWAKE 
COMMON/ ADCONST/C WAKE » BWAKE » SCRAD # ARBDEN »DEGFAC » ICRD ( 3 ) 

DIMENSION DUMMY ( 10 ) 

DO 2 I — 1 » NRFT 
2 DUMMY (I )SFREQX(N, I ) 

CALL TABL(TIM1,FR1»TKFTIM(1) rDUMMY(l) rl#l»l»NRFT»IFB) 

CALL TABL(TIM2»FR2»TRFTIM<1) rOUMMYtl) »1»1»1»NRFT»IFB) 

FREQZTs ( FR1+FR2 ) /2 • 

RETURN 

END 

FUNCTION TZ(X*Y»Z»TIM) 

COMMON/PROPRT/PPZ< 30) t TPZ ( 30 ) »SPZ(30) r VPZ(30) »RPLZ(30) ,UPLZ(30 ) t 
X RPGZ(30) »UPOZ(30) 

COMMON/DYNAM/TIMPROP13Q) t PTIM( 30 ) »QLTIM ( 30 ) # WMLOTIMI 30 ) rSANTIM ( 30 ) 
X ,GANTIM(30) »GRATIM(30) 

COMMQN/TLIQX/TLTIMX ( 15 » 15 * 15 ) t TLTIME ( 15 ) » RZTL ( 15) ,ZZTLI15) 

COMMON/S ITtX/RbSITX ( 100 » 10) »FREQX(100, 10) »XSITE<3, 100) »TSITE(lO0) » 

X trftimuo) 

COMMON/TANKX/RADTX ( 10 ) * ZRAOTX < 10 ) 

COMMON/BUBBLE/WAKV( 3» 1000 » #VB(3» 1000) »XB(3f 1000) »RB( 1000) » 

X RBA(IOOO) * IB(IUOO) »DMBGF<1000) ,DMB ( 1000 ) r CDRAG ( 1000 ) 

COMMON/CONVERG/DBUBCO »OLIQCO» DLEVCO »OCONCO» DENRCO, DFORCO 
COMMON/SURFAS/ZSURF»SURFAN, islip 

C0MM0N/LICUI0/wML0,DMLl>DMLBF,TSUPRL>QL»REYN12rREYN23,AC0F(3) » 

X EXPN ( 3 ) , TBULKL 

C0MM0N/GASPR0/HG,RBMIN»NB 

COMMON/GNRL/DTIME »DTIMEX,TIMEND» TIMPRNT ( 1000 )» IPRINTL, IPRINTU, 

X NTAPE# IRESTRT »TIME»PIMPS»PARIMP 

COMMON/VO iO/VOFRACrDMBTOT 

COMMON/ INTEGR/NTL » NTlR * NTLZ » NRFT » NSITE » NRZ » NPT IM » NPROP , 1 W AKE 
COMMON/ADCONST/CWAKE, BWAKE, SCRAD» ARBDEN, DEGFAC» ICRD(3) 

DIMENSION DUM1 (15,15) , DUM2 ( lb, 15 ) 

R=SQRT(X*X*Y*Y> 
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1=1 

4 IF (TIM-TLTIME ( I ) ) 1 # 2» 3 
3 1=1+1 

IF ( 1-NTL ) 4 » 4 » 5 

5 IU=NTL 
IL=NTL-1 
GO TO 6 

1 IU=I 
IL= 1-1 

IF( 1-1 ) 7» 7# 6 

7 IU=2 
IL=1 

6 00 8 1=1 t NTLR 
DO 8 J=1»NTLZ 

8 UUM1(J»I)=TLTIMX(I»J»IL) 

DO 9 I=1»NTLR 

DO 9 J=1»NTLZ 

9 DUM2(J»I)=TLTIMX(I*J»IU) 

CALL DTA8L2(R,2,TN1»ZZTL(1) » 1 # NTLZ » 1 » 1 > IFB , RZTL < 1 ) »DUMU1»1) »1, 

X 15 » NTLR ) 

CALL DTA8L2 ( R #Z # TN2# ZZTL ( 1 ) » 1 »NTLZ » 1 » 1 » IFB » RZTL ( 1 ) » 0UM2 ( 1 » 1 ) , 1 , 

X IbrNTLR) 

TN=TNl+(TN2-TNl)*( TIM-TLTIME tIL) ) /(TLTIME ( IU> -TLTIME ( IL ) ) 

GO TO 10 

2 IL=I 

DO 11 i=i»ntlr 
DO 11 J=1»NTLZ 
11 0UM1 (J»I)=TLTIMX(IfJrIL) 

CALL DTABL2(R,Z»TN,ZZTL(1) »1#NTLZ»1#1»IFB»RZTL(1) ,DUMl(l,l) »1» 

X 15»NTLR) 

10 tz=tn*tbulkl 

RETURN 

ENO 

SUBROUTINE SCREEN ( X# Y » Z > RI # R0» ISOBS * IREOUC ) 

COMMON/PROPRT/PPZ(30) »TPZ(30)»SPZ(30) »VPZ(30)#RPLZt30),UPLZ(30) » 

X RPGZ ( 30 ) » UPGZ ( 30 ) 

COMWON/OYNAM/TIMPROP(30) »PTIM(30) »QLTIM(30) »WMLOTIM(30) »SANTIM(30) 
X »GaNTIM(30) »GRATIM(30) 

COMMON/TLIGX/TLTIMX (15*15*15) * TLTIME (15)*RZTL(15)> ZZTLt 15) 
COMMON/SITEX/RBSITX(100»10) »FREQX(l00r 10) »XSITE(3,100) ,TSITE(100) » 
X TRFTIM(IO) 

COMNON/T ANKX/RADTX ( lU ) * ZRADTX (10) 

COMMON/BUBBLE/WAKV(3»1000) »VB(3»1000) »XP(3» 1000) »RB( 1000) » 

X RBA(IOUO) » IB (1000) , DMBGF ( 1000 ) » DMB ( 1 000 ) , CDRAG ( 1000 ) 

COMMON/CQNVERG/DBUBCO»DLIQCO»DLEVCO,DCONCO,DENRCO,DFORCO 
COMMON/SUP F AS/ZSURF * SURF AN » I SLIP 

COMMON/L ICUID/WMLO t DML1 * DMLBF , TSUPRL * QL ,REYN12 * REYN23» ACOF < 3 ) * 

X EXPN(3) »TBULKL 

COMMON/GASPRO/HG»RBMlN»NB 

COMKON/GNRL/DTIME»OTIMEXrTIMEND»TlMPRNT(1000) »IPRINTL,IPRINTU» 

X NTAPE* IRESTRT»TI»^E»PIMPS»PARIMP 

common/void/vofrac»dmbtot 

COMMON/INTEGR/NTL»NTLR»NTLZ»NRFT»NSlTE»NRZ#NPTIM»NPROP f IWAKE 
C0MM0N/ADC0NST/CttAKE»BWAKE»SCRAD»ARBDEN,DEGFAC»ICRD(3) 
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IF(RI*SCRA0)1,1,3 

3 IF ( IHEDUC ) 1 # 1 » 2 

2 CALL F0RCES(X»Y»Z»RI»RI*IS08S»FMAG»THETA»PHI»TIWE) 
TL=TZ(X,Y»Z»TIME) 

FSCRAD=2.*3.l416*SCRAD*SIGZ(TL) 

DR-XRADT (Z+RI )-XRADT (Z) 

DM=SORT(DR*OR+RI*RI) 

THETN=ACIS(OR»DM) 

PHN=ATIM(Y*X) 

FNO=FMAG* (SIN (THETA) *COS (PHI) *COS(THETN)*COSIPHN)+SIN^THETA)* 

X SIN(PHI)*COS(TMETN)*SIN(PHN)-COS(THETA)*SIN(THETN) ) 

FN0=FN0/32.17 
IF ( FNO) 1 » 1 » 4 

4 P=PZ(TIME)*2.*SIGZ(TL)/(144.*RI) 

ANO=FNO/(144.*P) 

DN0=AN0/(3.1416*SCRAD*SCRAD) 

FSCRAD=FSCRAO*DNO 

IF ( FSCRAD-FNO ) 5 > 5 » 1 

1 RO=RI 
GO TO 6 

5 R0=0. 

6 RETURN 
END 

SUBROUTINE RESTART 

COMMON/PROPRT/PPZ ( 30 ) » TPZ ( 30 ) #SPZ ( 30 ) » VPZ ( 30 ) »RPLZ ( 30 ) ,UPLZ ( 30 ) » 

X RPGZ ( 30 ) rUPGZ ( 30 ) 

COMMON/DYNAF/TIMPROP(30) »PTIM(30) ,QLTIM(30) »WMLOTIM(30) »SANTIM(30) 
X rGANTlM(30) »GRATIM(30) 

COMMON/TLIQX/TLTIMX (15.15.15) .TLTIME ( 15 ) »RZTL ( 15) . ZZTL ( 15) 
COMMON/SITEX/RBSITXUOO.IO) *FREOX(l00» 10) »XSITE(3» 100) »TSITE( lOO) . 
X TRFTIM(IO) 

COMMON/TANK X/RAOTX ( 1 0 ) » ZRADTX ( 10 ) 

COMMON/BUBBLE/WAKV (3. 1000 ) »VB( 3.1000 ) »XB( 3. 1000) »R8(l000) » 

X RBA(IOOO) . IB(1000) »DM0GF( 1000) »OMB( 1000) »CDRAG( 1000) 

COMMON/CONVERG/DBUBCO.DLIQCO.DLEVCO.DCONCO.OENRCO.DFORCO 
COMMON/SURF AS/ZSURF ► SURF AN. I SLIP 

COMMON/LICUID/WMLO , DML1 . DMLBF » TSUPRL » QL.REYN12 * REYN23 » ACOF ( 3 ) » 

X EXPN ( 3 ) » TBULKL 

COMMON/GASPRO/HG.RBMIN.NB 

COMMON/GNRL/DTIPE»DT1MEX»TIMEND»TIMPRNT(1000) »IPRINTL»IPRINTU» 

X ntape.irestrt.time.pimps.parimp 

COMMON/VQID/VOFRAC » DMBTOT 

COMMON/ INTEGR/NTL»NTLR»NTLZ»NRFT#NSITE»NRZ»NPTIM»NPROp,IWAKE 
COMMON/ADCONST/CwAKE»PWAKE.SCRAD.AR8DEN»DEGFAC»ICRD(3) 

IF(N0)1,1.2 

2 PUNCH 100. (TSITE(I) »I=l»NSITt) 

DO 21 I=1*NB 

21 PUNCH lOO'XB(l'I) »XB(2»I) »XB(3,I) »RBA(I) 

100 FORMAT (6E13.6) 

1 RETURN 
END 
R 

11 22223480 149 111 

12.061 524.69 1.317E-3 3.087E-4 93.132 21.296 0.30456 
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12.562 

526.69 

1 . 307 E -3 

3 . 060 E -4 

92.968 

21.705 

0.31633 

60.324 

13.080 

528.69 

1 . 297 E -3 

3 . 033 E -4 

92.804 . 

22.114 

0.32846 

60.452 

13.614 

530.69 

1 . 287 E -3 

3 . 005 E -4 

92.640 

22.522 

0.34094 

60.581 

14.165 

532.69 

1 . 277 E -3 

2 . 978 E -4 

. 92.475 

22.931 

0.35378 

60.712 

14.733 

534.69 

1 . 267 E -3 

2 . 951 E -4 

92.310 

23.341 

0.36700 

60*845 

15.319 

536.69 

1 . 257 E -3 

2 . 924 E -4 

92.144 

23.750 

0.38059 

60.975 

15.924 

538.69 

1 . 247 E -3 

2 . 896 E -4 

91.978 

24.160 

0.39458 

61.106 

16.546 

540.69 

1 . 237 E -3 

2 . 869 E -4 

91.812 

24.570 

0.40895 

61.241 

17.188 

542.69 

1 . 227 E -3 

2 . 842 E -4 

91.645 

24.979 

0.42374 

61.374 

17.848 

544,69 

1 . 217 E -3 

2 . 815 E -4 

91.477 

25.389 

0.43893 

61.512 

0 . 

14.7 

0 . 

0 . 

0 . 

0 . 

1 . 


100 . 

14.7 

0 . 

0 . 

0 . 

0 . 

1 . 


0.0 

0.125 

0.126 

100.0 





0 . 

0 . 

0.25 






0.008 

1.35 

0.008 

1.35 

0.008 

1.35 

0.008 

1.35 

0 . 

0.03100 

0.25 






0.008 

1.31 

0.008 

1.31 

0.008 

1.31 

0.008 

1.31 

0.229 

0 . 

0.25 






0.0 

0.0 

0.0 

0.0 

0.0 

0.0 



0.1145 

0.1985 

0.25 






0.0 

0.0 

0.0 

0.0 

0.0 

o 

• 

o 



• 0.1145 

0.1985 

0.25 






0.0 

0.0 

0.0 

0.0 

0.0 

o.o 



> 0.229 

0 . 

0.25 






0.0 

0.0 

0.0 

0.0 

0.0 

o.o 



• 0.1145 

- 0.1985 

0.25 






0.0 

0.0 

0.0 

0.0 

0.0 

o.o 



0.1145 

- 0.1985 

0.25 






0.0 

0.0 

0.0 

0*0 

0.0 

O.o 



0.350 

0.0 

0.0 

0.0 


0.0 

o 

• 

© 

0 

.0 

0,0 






0.0 

100.0 







0.0 

0.349 







0.0 

0.25 

0.95 






1.0 

1.0 







1.0 

1.0 







1.0 

1.0 







1.0 

1.0 







1.0 

1.0 







1.0 

1.0 







0.349 

0.0 

0.349 

1.0 





0.4 

0.6 

0.8 

1.0 

1.2 

1.4 

1.6 

1 • 8 

2.0 

2.2 

2.4 

2.6 

2.8 

3.0 

3.2 

3.4 

3.6 

3.8 

4.0 

4.2 

4.4 

4.6 

4.8 

5.0 

5.2 

5.4 

5.6 

5.8 

6.0 

6.2 

6.4 

6.6 

6.8 

7,0 

7.2 

7.4 

7.6 

7.8 

8.0 

8.2 

8.4 

8.6 

8.8 

9.0 

9.2 

9.4 

9.6 

9.8 

10.0 

10.2 

10.4 

10.6 

10.8 

11.0 

11.2 

11.4 

11.6 

11.8 

12.0 

12.2 

12.4 

12.6 

12.8 

13.0 

13.2 

13.4 

13.6 

13.8 

14.0 

14.2 

14.4 

14,6 

14.8 

15.0 

15.2 

15.4 

15.6 

15.8 

16.0 

16.2 

16.4 

16.6 

16.8 

17.0 

17.2 

17.4 

17.6 

17.8 

18.0 

18.2 

18,4 

18.6 

18.8 

19.0 

19.2 

19.4 

19.6 

19.8 

20.0 

20.2 

20.4 

20.6 

20,8 

21.0 
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21.2 

21.4 

21.6 

21.8 

22.0 

22.2 

22.4 

22.6 

22.8 

23.0 

23.2 

23.4 

23.6 

23.fi 

24.0 

24.2 

24.4 

24.6 

24.8 

25.0 

25.2 

25.4 

25.6 

2 5.8 

26.0 

26.2 

26.4 

26.6 

26,8 

27.0 

27.2 

27.4 

27.6 

27.8 

28.0 

28.2 

28.4 

28.6 

28.8 

29. U 

29.2 

29.4 

29.6 

29.8 

30.0 




2.0 

2000 . 

24 . 

- 1 . 

19.7 

-, 72 b 

2.64 

0,13 

33.6 

0 . 

0.0001 

.02 

0 . 

0.003 

30.0 

534. b9 

0.0 

0.0 

0.95 

0.0 

1.0 

1.0 

0.0 
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INITIAL conditions 
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SITE NUMBER 3 X$ITE* 2,290000E-01 YSITE* 0* ZSITE* 2«500000E»01 INITXAU TIME* 0 


SITE NUMBER * XSITE* l*l*5000E-0l TSITE* 1,9B5000E»01 ZSITE* Z.500000E-01 INITUL TIME* 0 
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SITE NUMBER 7 XSITE—1.14S000E-01 TSITE*-1. 9B5000E-01 ZSITE* 2.500000E-01 INITIAL' TIME* 0 


SITE NUMBER 8 XSITE» X.IA5000E-0! TSITE»-1 .985000E*01 ZSITE* J.500000E-01 INITIAL TIME* 
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PROBRAM EVOLVE*** The TEMPORAL and spatial history or A BOBBLE SOCIETY 
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TIME pressure LIQUID HASS LEVEL ANGLE LEVEL HEIGHT VOID FRACTION void MASS GRAV angle 
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TIME PRESSURE LIQUID MASS LEVEL ANGLE LEVEL HEIGHT VOID FRACTION VOID MASS GRAV ANGLE 

1 . 806 Tl 8 E *00 i.*70000E*01 3.356238E»oT 0 . 9 . 500736 E -01 1.76?759E-05 2.356665E-06 6. 



*8(1) XB<2> XB (3) VB ( 1 > VB (2) VBO) MASS RADIUS ACTUAL RADIUS 

3.10000QE-02 e.0TBT45E»01 0. 0* 5.329752E-01 8.000000E-03 8.000000E-03 
3.609775E-04 6.650211E-01 0. 6.084825E-0* 5.75119SE-01 B.oOOOOOE-03 8.000000E-03 
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TIME PRESSURE LIOUID MASS LEVEL AN6LE LEVEL MEI6HT VOIO FRACTION VOID MASS BRAV AN6LE 

2«410076E*40 i.*70000E*01 3.3S6238 E«oT 0. 9.S007J6E-01 l,76?759E-05 2.356665E-06 0. 
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3.098504E-02 3,2292B7 E-oT 0. - 1 *235749E*04 6.0*327oE-Ol 8.000000E-03 B.000000E-03 





rn rn n 





IA 

IAIA 




IA 

o o o o 

* 



(A 

O 

oo 

4 




ft ft • • 

• 



3 

• 

1 ft 

4 

hJ 


•-* 

hi hi hi hi 

* 

hi 


ftU 

hi 

hi hi 

4 



O 

o o o o 

4 

.1 


O 

o 

o© 

4 

(9 


X 

o o o o 

• 

(0 


X 

o 

o© 

4 

Z 


QC 

o o o o 

• 

z 


or 

o 

oo 

4 

X 



o o o o 

• 

X 



© 

oo 

4 



-I 

o o o o 

• 



-j 

© 

oo 

4 

> 


X 

o o o o 

• 

» 


X 

o 

©o 

4 

• 

• 

3 

• • • • 

• 

X 

• 

3 

• 

• • 

4 

or 

■o 

1- 

tt (Data 

* 

dr 

© 

ft- 

© 

© © 

4 

o 


u 


* 

id 


U 



4 



X 


4 



X 



4 





* 






4 


© 


ia ia ia ia 

• 


4 


IA 

IAIA 

4 


o 


o o o o 

• 


O 


o 

O© 

4 


• 

IA 

(••• 

• 


• 

IA 

ft 

ft ft 

4 

i/i 

hi 

3 

hi hi hi hi 

• 

(A 

hi 

3 

hi 

hi hi 

4 

IA 

O 


O o o o 

• 

IA 

m 

frU 

o 

o o 

4 

« 

CM 

O 

o O o o 

• 

X 

*0 

O 

o 

o o 

•4 

X 

cu 

X 

o o o o 

• 

X 

*0 

X 

o 

oo 

4 


<VJ 

ac 

o o o o 

• 


© 

ac 

o 

o o 

4 

o 

X 


o o o o 

• 

o 

m 


o 

o o 

4 

M 

r* 

IA 

o o o o 

• 

fr* 

(A 

IA 

o 

o o 

4 

o 

• 

IA 

• • • • 

• 

o 

• 

IA 

• 

• • 

4 

> 

ia 

X 

<8 0 00 

• 

> 

(va 

X 

© 

©« 

4 



X 


♦ 



M 



4 





• 






4 





* 






4 


in 


«H 

* 


m 



«■* 

4 

z 

o 


Q o o o 

• 

z 

o 


o 

o© 

4 

o 

i 


ft 1 » » 

• 

o 

• 


ft 

ft ft 

4 


hi 


hi hi hi hi 


*-* 

hi 


hi 

hi hi 

4 


in 


ru in x ft- 

• 

ft" 

© 


ru 

(Vi m 

4 

u 

© 


m 

4 

u 

m 

A 

m 

X X 

4 


© 

ia 

h -C 0 

♦ 

X 

r- 

m 

ft- 

r- x 

4 

oc 

© 


»>x mm 

* 

QC 

©> 


©■ 

©X 

4 

u. 

in 

CO 

m x m * 

4 

h 

© 

B 

(VI 

©(VJ 

4 


ia 

> 

fo h cn 

• 


ft- 

> 

(A 

©~4 

4 

o 

• 


• • • * 

• 

D 

• 


• 

• • 

4 


M 


m m © © 

• 

•H 



m 

m© 

4 

o 




4 

o 





4 

> 




• 

> 





4 





6 






4 




x x x 

4 


«x 



X X 

4 

*- 

O 


o o o 

4 

ft" 

e 



oo 

4 

X 

1 


ft • ft 

«• 

X 

• 



ft ft 

* 

© 

hi 


hi hi hi 

4 

© 

hi 



hi hi 

• 


© 


© ft- (A 

4 

•X 

<0 



"“•IA 

• 

s? 

ia 


ONim 

• 

£ 

IA 



ft- O 

4 

ft- 

(Vi 

© r- o 

• 

ft" 

(Vi 


OIA 

4 


o 


x m 

• 


O 



(A© 

• 

-J 

o 

n 

m © >- 

• 

-1 

o 

(B 


©© 

4 

U1 

m 

> 

^ (VJ x 

• 

hi 

in 

> 


IA© 

• 

> 

•- 


• • •< *i 

* 

» 

• i 


•> 

• i 

4 

hi 

© 


O 

• 

hi 

© 


o 

HX 

4 

-1 



• 

• 

-J 




1 

4 





• 






4 





4 






4 





4 






4 





ft 






4 

LaJ 




4 

hi 





4 

—1 




4 

-J 





4 

t*> 




4 






4 

z 


M, 


4 

z 





4 

X 


H 


4 

< 





• 





4 



W" 



4 



CO 


4 

-J 


© 



• 

hi 


> 


4 

hi 





4 

> 

• 


• • • • 

m 

> 

• 


• 

• • 

4 

hi 

o 


o o o o 

4 

hi 

o 


o 

o o 

4 

-1 




4 

_i 





4 





4 






4 





4 






4 


|H 


J»— 1 *~tj 

4 


IH 


lr*« 

I-*—* 

4 


o 


o o o o 

4 


© 


O 

oo 

4 

u> 

• 


1 ft ft ft 

4 

IA 

4 


ft 

a 1 

4 

(A 

hi 


hi hi hi hi 

4 

(A 

hi 


hi 

hi hi 

4 

X 

CO 


(M (Vi o m 

4 

X 

© 


ft- 

(Vi© 

4 

X 

m 


(VI © ft- 40 

4 

X 

(A 


X 

xm 

4 


(Vi 

ro 

ru (vi (Vi (n 

4 


(U 

r> 

(A 

©(U 

4 

a 

© 

— ■ 

m (-tuft- 

0 

o 

© 


IA 

(Vi©' 

4 

»■* 

m 

00 


4 

IX 

a 

© 

ft- 

IA H 

4 

3 

m 

X 

is (VI x ft- 

4 

3 

X 

IA 

© o 

4 

a 

• 



4 

© 

• 


• 

• • 

4 

p-» 

(A 


m ft- x ru 

4 

*-» 

A 


« 

mx 

4 

_j 




4 

_J 





4 





4 






• 





4 






4 


*-4 


ru x (vi m 

4 


rM 


X 

NX 

4 


O 


o o o o 

4 


o 


© 

OO 

4 


• 


a ft ft • 

4 


4 


1 

ft ft 

• 


hi 


hi hi hi hi 

4 


hi 


hi 

hi hi 

© 

hi 

o 


» O oo 

4 

hi 

o 


IA 

© o 

• 

QC 

o 

A 

A 0410 

4 

QC 

o 


(A 

ft- <"• 

• 

3i 

o 

(Vi 

m ft** o o 

4 

31 

o 


© 

Nh 

• 

IA 

o 

— * 

mom© 

4 

(At 

o 


m 

(Ain 

4 

(A 

*- 

GO 


4 

IA 

ft- 

© 

ru 

© © 

4 

hi 

X 

X 

O A 0(0 

4 

hi 

*4 

X 

© 

OH 

4 

QC 

• 


♦ ♦ • * 

4 

QC 

• 


* 

» • 

•4 

a. 



(A PIJOH 

- 4 

£ 



X 

Ah 

- 4 





-4 






•4 





4 






4 





4 






4 


o 



4 


o 




X 


o 



4 


'© 




4 


• 



4 


4 




4 


hi 



4 


hi 




• 


(Vi 



4 


M 




4 


<VI 



4 


ru 




4 

hi 

(Vi 



4 

hi 

M 




4 

X 

(Vi 

*— 


4 

X 

M 

V 



4 

•-* 

• »-t 

00 


4 

#x 

i*-i 

© 



4 

K 

4) 

X 


4 

ft- 

w 

X 



-4 


• 


* • • • 

4 


• 


• 

• • 

4 


(VJ 


o o o © 

4 


(U 


o 

o o 

4 





4 





4 



3 


r> m 
O c 

• ft 



C-56 


TIME PRESSURE LIQUIO MASS LEVEL AM6LE level height void fraction void mass grav angle 
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